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CHAPTER I 
INTRODUCTION 
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| 

i 

i 

j 

This volume documents the computer programs which were used to Implement i 

and evaluate the Image processing algorithms described in Volume I. All 

of the programs described were run on an IBM 360/75 computer, ana core i 

t 

requirements are given In units of 8-bit bytes. The Landsat-1 and -2 | 

data used as Input was formatted into bytes, such that the four spectral 
measurements appear in one full word. The data sets used were seasonal 
passes covering a LAC IE sample segment of 117 by 196 pixels, and a 
1200 pixel square segment containing Mobile, Alabama. 
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AVERAGE UNCERTAINTY (ENTROPY) 


I. NAME 
ENTRPY 

II. DESCRIPTION 

The average uncertainty (entropy) of a data set X is g'*en by 

N 

H(X) - -£ P <V ,0 9 2 P(X i ) 

1-1 

where P(Xj) is the probability of occurrence of the event In 
data set X. This subroutine computes the entropy of a data set X. 

III. CALLING SEQUENCE 

CALL ENTRPY (IX, NREC, NEL, NDEVI , I BAND, XMEAN , SIGMAX, XNTRPV) 
where 

IX is an array into which the data set is read; 

NREC and NEL are the number of records and the number of pixels 
(bytes) per record in the data set; 

NDEVI is the logical unit number of the data set; 

I BAND is the band (one out of four) of the data set; and, 

XMEAN, SIGMAX, and XNTRPY are outputs of the subroutine giving the 
mean, variance, and entropy, respectively, of the data set. 

IV. INPUT/OUTPUT 

1. INPUT 

The input to this program is a sequential data set on logical 
unit NDEVI, having NREC records each NEL A-band pixels long, 
stored In unformatted FORTRAN mode. 

2. OUTPUT 

The outputs of the program are the three variables XMEAN, 
SIGMAX, and XNTRPY denoting mean, variance, and entropy of the 
data set. 


k 


V. DESCRIPTION OF SUBROUTINES 

No subroutines ere required by this routine. 

VI. PERFORMANCE SPECIFICATIONS 

1. STORAGE 

This subroutine Is 1594 bytes long. 

2. EXECUTION TIME 

For a data set of 112 records, each 192 elements long, It takes 
about 1/3 second on the IBM 360/75 computer to compute the mean, 
variance, and entropy of one band of data. 

VII. METHOD 

A simplified program for computing the mean, variance, and entropy of 
a data set is shown in Figure I. First, a histogram of the data is 
obtained giving the number of occurrences of each intensity. Then, the 
probability of each intensity is found by dividing the number of 
occurrences by the total number of pixels. Once the probabilities are 
determined, the entropy is computed from the relationship given in 
Section II. The mean, X, is determined from 

N 

* * N £ x j 
i-1 

where N is the total number of pixels (NREC X NEl) and the Xj's are 
the intensities. 

2 

The variance, S , is found from 

N 

S 2 • RTT £ < x | - *> 2- 

i-i 

VIII. COMMENTS 
None 
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IX. TESTS 

This program has boon tested on the LACIE data (112 lines x 192 
pixels/tine). For the 10/22/75 pass, band 1, the mean and variance 
were found to be 25. I and 12. b, respectively. When the logarithm to 
the base of two was used, the entropy was 3*7 bits. 


X. LISTINGS 

The listing for ENTRPY is attached at the end of this section. 
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SUBROUTINE eMTRPYUXfNRFCfNEUNDfcVl# JBA*D,XMfcAN,SIGMAX,XNTRPY) 

THIS SUBROUTINE COMPUTES THE H*AN, VARIANCE* AM! FMRCPY 
OF A HAT A SET 






LOGICAL* 1 IX(<l,NEl) 
DIMENSION IH(128) 
DATA NPTS / 128/ 


COMPUTE THt HISTOGHAH OP THE OATA 
OP 5 Isl,MPT$ 

E> I H ( I ) a 0 

DO 10 Isl'NREC 
RE AO (NPE V I ) IX 
OP 10 Jal,NEL 
H s IX( I0AKD# J)*l 
IH{H)*IH(H)M 
10 CONTINUE 

COMPOTE THE Mf AN AND VARIANCE CP THE OATA 

NsO 

NXl SO 

NX*SO 

PC 20 tsl,NPTS 
N » N ♦ I H { I ) 

NXL a Ml ♦ 

NX* 3 NX* ♦ IH(I)*(I*1 )**2 

20 CONTINUE 

XMfcAM a PL0AT(NXI)/F10AT(N) 

SIGPAX 3 (NXHvMXPEAN**?) / (N*l) 

COMPOTE THE AVERAGE UNCERTAINTY (FNTRUPY) 
SHMsO.O 

ALK?3ALOG10(?,0) 

OP 30 l3l,NPT$ 

IF (IHtn.FO.O) C.0 TC 30 
PROBXsFL0AT(lK(I ) J/FLOATCM 
SIjMsSUH*PRORX*(ALOGIO(PROBX)/AI,N2) 

30 CTNTTM.E 
XNTHPY8»St M 
re Turn 

ENO 


ORIGINAL* PAG! \9 
OF POOR QUAUT^ 
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AVERAGE INFORMATION TRANSFERRED 
FROM X TO Y 
(TRANS INFORMATION) 


I. NAME 
TRNSIN 


II. DESCRIPTION 

The average information transferred from X to Y (trans informat ion) 
is given by 

kx;y) = e e p(x,,y,) log p( yy 

i-I j-1 J P(X,) 

where P(X.,Y.) is the joint probability of occurrence of the i** 1 
^ th 

event in data set X and the j event in the data set Y. P(X./Y.) 

th ^ 

is the conditional probability of occurrence of the i event in 
deta set X given that the j** 1 event in data set Y has occurred. 

P (X . ) is the probability of occurrence of the l** 1 event in data set 
X. This subroutine computes the trans informat ion between a data 
set X and a data set Y (compressed data set X). 


TRNSIN computes the average percent deviation and the average of the 
differences squared between the data sets X and Y. These relation- 
ships are determined from 


N 

AVPDEV = 23 

i=l 



where N is the number of elements in each data set and 


1 N 2 
AVDFSQ-^ £ (Y. - X.) Z . 

i = l 

Other relationships available from this subroutine are the joint 
probability of X and Y, the marginal probability of X, the 
marginal probability of Y, the conditional probability of X given 
Y, the mutual information between X and Y, and the summation over 
X of the conditional probability of X given Y times the mutual 
information between X and Y. 


9 


CALLING SEQUENCE 

CALL TRNSIN (IX, IY, NREC, NEL, NDEVIX, NDEVIY, IBAND1 , IBAND2, 

XINF, MAXI, MINI, AVDFSQ, N) 
where 

IX and IY are arrays Into which the data sets X and Y are read; 

NREC and NEL are the number of records and the number of pixels 
(bytes) per record in the data sets; 

NDEVIX and NDEVIY are the logical unit numbers of the data sets; 
IBAND1 and IBAND2 are the bands (channels) of the data sets; and, 
XINF, MAXI, MINI, AVDFSQ, and N are outputs of the subroutine 
giving the transinformation, data limits, average of the differences 
squared, and number of pixels, respectively. 

INPUT/OUTPUT 

1. INPUT 

The inputs to this program are two sequential data sets. One 
data set is the original data set X on logical unit NDEVIX and 
the other data set is the compressed data set Y on logical unit 
NDEVIY. Each data set consists of NREC records each NEL 
elements long stored in unformatted FORTRAN mode. 

2. OUTPUT 

The outputs of this program are the computed quantities 
described in Section II above. 

DESCRIPTION OF SUBROUTINES 

No subroutines are called by this program. 

PERFORMANCE SPECIFICATIONS 

1 . STORAGE 

This subroutine is 68116 bytes long and the common block 
PROB is 198, 1M bytes. 

2. EXECUTION TIME 

For a data set of 112 records, each 192 elements long. It takes 
about 2.2 seconds to execute the program. 
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VII. 


METHOD 


A simplified flow diagram of subroutine TRNSIN Is shown in Figure 2. 
This subroutine finds the ranges of the data (min. to max.) and 
constructs a Joint histogram of the data sets X and Y. Each entry 
of the two-dimensional histogram contains the number of occurrences 
of the intensity of each pixel. The average percent deviation 
and the average of the differences squared between the two data 
sets are then computed. The subroutine also determines the 
probabilities P(X,Y), P(X), P(Y), and P(X/Y) which are used to obtain 
the mutual information and trans informat ion of the data sets X and Y. 

VIII. COMMENTS 
None. 

IX. TESTS 

This program was tested using LAC IE data obtained by LANDSAT-1 on 
May 6, 1976 for data set X and this same data (compressed at 1 bit/ 
pixel using the Adaptive Differential Pulse Code Modulation technique) 
for data set Y. The following results were obtained for band 1: 

Average Percent Deviation •* 5.32 

Average of the Differences Squared ■ 8.40 

Trans informat ion * 1 .67 Bi ts/Symbol 

X. LISTINGS 

The listing for TRNSIN is attached at the end of this section. 


N. 


Figure 





2. A Simplified Flow Diagram of Subroutine TRNSIN 
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SliBWeumt TRK3IM (IX, !Y, MRFC, KEl, MOEVIX, KDEVIV, IBAND1, 

1BAND2, XINF, MAXI, MlM , AVOFSQ, N) 

IS SUBHOUTlNf COMPUTES YMF AVERAGE InFORMATIOK TRANSFERRED FROM 
* 10 v (TRANSFORMATION) 


LObICAl«l 1 X ( A , NtL ) , IV(«,Nfcl) 

DIMENSION 1 H l 128 , 128 ) 

IMEGfR OHS, EXP, DIFSQ 

LUmmON/PROB/PRBXAY ( 128 , 128 ) ,PRBX( 12 H) ,PNBY( 12 B) ,PRBXCY( 126 , 128 ) , 
, XMliT(l 26 ,l? 8 ),XINFVl(l 28 ) 

00 10 I> 1 , 12 H 
Ot) 10 J#t, 12 « 

IH(I,JJ «0 

10 CO^TINUF 
SUMABS* 0«0 
DlFSfJ s 0 

Ofj is Is 1 , NRE C 
RFAO(MJFVIX) IX 
KEA|)(M)FVIY) IV 

00 IS J* 1 , nEL 
L 8 lX(IHAN 01 ,J) 4 l 
msJ Y ( IBANQ 2 , Jltl 

fcXBsIX(I 8 ANCl,J) 

UHSsJY(IHAnD 2 ,J) 

if (txp.fco.o) r.c to n 

UIKOFX S ( 0 H 5 -FXM)/FLCAT(EXP) 

GO TO 1 ? 

11 OIFOFXSOHS 

12 SflAHS s SUMAHS 4 ABSC 0 IFCEX) 

OTFSO * DIFSGi*(CBS»EXP )**2 

IS C L' r » T I Mi t 

ivi s nhEC*NH 

AVPHtv s 100 , 0 *SUMABS/A 

AVilFSCi s FLOAT(DIFSQ)/N 


FIND 1 ME WANCF CF THE DATA (MIN TO MAX) 
Uf 16 NW*J, 12 P 
DC lb J»NR, 12 « 

IF f T H ( J,NH) ,KF # 0 ) GO TO 17 
IF fIh(NR,J) # NE, 0 ) GO TO 17 
lb COMlMiF 
1 / M I N S KH -1 

00 16 M*lsj ,128 
•vM S 129-NM1 
LC 18 Js 1 , \R 


ORIGINAL p«* ^ 

gt POOR ‘ 
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If (tMNH,.|).Kt,0) GO TC 19 
If (lMJ#MO a *t 9 Q) GO TC 19 
!« CCNTlMjt 

19 *AX ■ M«»l 
«AXl*MAX»MIMl 
' I*l*Ml\ 

C 

C C('*POTf JOIM HKCOAH IL ! T V Of X AND Y 

DC 20 1 * t # MAX | 

DO 20 J» 1 , * AX 1 

20 HkH X A V ( l # »l ) « fL0AT(!H(NMlN,j4MlK))/N 

L 

C ttlFPOU MARGINAL PROBABILITY Cf X 

DC 2b 1*1# MAXI 
PWHX (1 )*0«0 
?S UMlNGt 

DO SO 1*1# M AX1 
DO So J*l,*AXt 
►•«BX(I>*PfidX( I)4PRBXAV(I,J) 

30 CO.'.TlKik 

C 

c (Cf-PuTF ►AHGINAL PROBABILITY Cf Y 
DO 35 I* 1 , ► AX 1 
PMHY(t>«0,0 
5S CCMiNof 

Of* UO J*1 # *AX1 
DC «0 1*1, MAXI 
Pi«HV( JlsPKhY (J)+PHhXAT (I, J) 

U<' 0 L’ N T T \ U F 

L 

L LfvfMiTf rc^riTTCVAl PRCKAH IL IT V CF X r*I>-FS V 

<>( So .1*1, 'AX1 
DC *>0 1*1, MAXI 

TF(PHH«r.l),Lfc a v t O) 00 Tr us 
PWHXtfV r I, J)SFRKXAY( I, J)/PRfjY(J) 
c-o If! SO 
«S mhhxgx i T , 

5r ( i i. 1 I m >. 

C 

c (.r-Pl'tf Mill a l w rRMAT IC'X HF T »FF F * AM, Y 

*1 n#>*ALL'G1"(2,(>) 

•C 65 1*1 , -AXl 
>0 65 .1*1, MAXI 

TMPSMXGY(T,J),Lt,0,0) ur TO 60 
|F(PRHx(]) a l.» ,o t «n GC TC 60 
XMUT I 1 ,.I)SAU;G10(PPHXGV(I,J1/PHMXCI > )XALN2 
I.U TC t>5 

*>» XMiT ( 1 , J)*o,0 
,»S U'* T 1M F 

C 

f (f-nir AVFRAGF KFCRmATUf. TBAF. 5FF*Rf 0 FROM X TC Y 

L UkAvSInFCRmATICM 

x J \ F * (i , i* 

Dr 6S 1 * 1 , >•' A X 1 
• C MS v'*!,MAXl 


► 

[ 

r 



•*5 
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XINMXINMPHHXAY(I,J)*xm(!#J) 

«5 CONTINUE 

COMPUTE THF SUNPATION OVER X OF THE CONDITIONAL PROBABILITY OF 
X GIVEN Y TINTS THE HUTUAL INFORMATION BETWEEN X AND Y 
on 7U 1 b | » MAX | 

X T NF V I (I)«0«0 
70 CONTINUE 

DC’ 75 jslfMAXt 
00 75 U1,MAXI 

XINFYI(J)«XINTYIU)»PRBXGY(I,J)*XMUT(| # J) 

75 CONTINUE 

«NITU6,100> WIN, MAX 
I Tfc (6# 350 ) N 
*WiTE(6,200) A VP OF V 
*RITE(6#950) IBANOI»XINF 
RETURN 

100 HlKMAT (/ IX# 'RANGE; OF OATAK ,I5»?X« « T0'»I5) 

200 FOHmaT (/ IX# • AVERAGE PERCENT DEVIATION t'#F12,5) 

350 FORMAT (/ 1X#'TCTAL NUMBER OF OCCU«Rt NCEB b » , 16) 

950 FORMAT (/ IX# ITRANSINFORMATION FOR SAND»#I2#» «t,F12 t S# 

. • BIT/SVMHOL') 

END 


.. uV ^OFTf 

i.pr.-,"l ' ic POOR 

RV^;. : v , y x \Gb V> r 

01UG1^ AIj 
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CHI ‘SQUARE STATISTIC 





NAME 

XSQ 


II. DESCRIPTION 

The chi-square statistic for two data sets X and Y is defined by 

** - £ (°" e ') 2 
l«! e l 

where Oj Is the observed frequency and eg Is the expected frequency 
of occurrences of events from data sets X and Y. The total fre- 
quency of occurrence is N, and 

E °i “ £ e i " N * 

The values for Oj and ej are determined from 

o, - NP(Yj) and 

e, - NP(Xj) 

where P (Y j ) is the marginal probability of Yj and P(Xj) is the 
marginal probability of Xj. The chi-square statistic is obtained by 
summing the values indicated above for ej > 5. Those values of ej 
equal to or smaller than 5 are pooled with previous values of ej. 
Corresponding values of Oj must also be pooled. The number of degrees 
of freedom is equal to the number of ej or Oj after pooling has been 
considered. 


For comparison with tabulated values of the chi-square statistic, 

XSQ approximates tabulated values by 

X 2 = 1 - | N + ZyJUs N 

where Z is the standa dized variable of a distribution with values 
of 1.28, 1.61*5, 2.33, 2.58, and 2.88 representing confidence levels of 
90%, 95%, 99%, 99-5%, and 99.8%, respectively. 
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CALLING SEQUENCE 
CHISQ - XSQ (N, MAXI) 
where 

N is the number of elements in data sets X and Y. 

MAXI is the range of the data (minimum to maximum). 

INPUT/OUTPUT 

1. INPUT 

The inputs to the function XSQ are obtained from the common/PROB/ 
which is generated by subroutine TRNSIN. These inputs are the 
marginal probability of X, the marginal probability of Y, the total 
number of elements, N, and the range of the data, MAXI. 

2. OUTPUT 

The output of the function is the chi-square statistic. 

DESCRIPTION OF SUBROUTINES 
No subroutines are called by this program. 

PERFORMANCE SPECIFICATIONS 

1 . STORAGE 

This function is 2224 bytes long. 

2. EXECUTION TIME 

About 5 seconds to execute the program on an IBM 360/75 computer. 
METHOD 

Figure 3 shows a simplified flow diagram of the function XSQ. The 
observed and expected frequencies of occurrence are computed from the 
marginal probabilities which are obtained from subroutine TRNSIN. 
Values of the expected frequency less than 5 are pooled together. 

The chi-square statistic for the data sets X and Y, the number of 
degrees of freedom, NDF, and approximations to tabulated values are 
computed using the relationships given in Section II. 
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VIII. COMMENTS 



IX. TESTS 

The chi-square statistic for LACIE data obtained by Land sat-1 on 
May (, 1976 (representing expected values), and tha same data 
compressed using the ADPCM technique (representing observed values) 
was found to be 9501.64. Normalizing and comparing with tha tabulated 
values showed that the hypothesis that the compressed and uncompressed 
data sets are the same should be rejected at each of the confidence 
levels. 

LISTINGS 


X 


The listing for X*d is attached at the end of this section 


MiKfTJO* X8Q(S«PAX1) 

C 

C T**IS FtKCTfOS COMPUTES THF CHI-SQtAhF S t ATX5TTC 
C 


OJwgKSlON P0C128)tFfc(128),Z(5) 

C0M*0A/PR0ft/PRnXAY(l?8,t2ft)tPRex<1?*)»P4BY(t2*)'PRBXGV(l2ft#t26)» 
• X**tT()2e*126)»XtAfV!(12B) 

OATA Z/t.?8»l,6<lS,2.3S#;>,S0#2 t flftS 
C 

MO 

8l«fXP«0,0 

8i'HOPS«0,0 

EKaFlQAT(N) 

C 

C COMPUTE THf 088FPVF0 ASp EXPCCTgO VA^ufS 
00 20 tat, MAXI 
8»JWCB8«8UM0R8#FN*P«BV ( t ) 

SUMgXPeSOMf XPaF K aPHfl* ( t ) 

!M$UPEXP,GT t 5,0> 60 TO 10 
60 TO 20 
10 msm«! 

1*1 

C 

C STORE THg OBSERVED AkP fXPlCTFO VALLE* 

FQ(P)cSUP08S 
FF <M)iSU»t XP 
SLPFXPaO.O 
8UPOB8SO.O 
20 COKTIM * 

IF <l,FQ«VAX1 ) GC TO uo 
C 

C AOO LAST VALUES LESS TMAS HVF TO PK(«|4U8 CLASS 
IE(M ( EQ a 0) GO TC TO 
f0(PT*A0(P)A8UP0BS 
FF (M)aFF (► tASU^fc XP 
C 

C COMPETE CHl»SOtJAPC STATISTIC 
AO XSCaO (0 

"RITE (6,600) IFF ( J) # J*t 
DO SO I • 1 # M 

DIFSO «( FO ( t )* FC ( n)**2 

OIFOf XaCJFSC/FE (I) 

XSOaXSQADIFOE X 
SO COPT I SUE 

»R|TH6#100) XSC 
*PF«M«t 

«*RITF (6,200) PDF 
f “ -f I :.AT(NOF) 

*.--i.C*(XSO/FsnF)##|l ,0/3,0) 

ITE (6# 300) XCALC 
DO 60 1*1 »S 
1*ORS«2,fl/CR,0*F*0F ) 
nr A Hal ,0-Tt»PRStZtn*SCRTCT*n9NJ 
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MltmCft'iOO) XTAB»I(I) 

*0 COOT t MIC 
80 TO 00 
TO «*ITCC0'900) 

•0 MTU** 

100 TO0MI (/MIi ICHMSUMO ' #F tt«0> 

200 fOOMT(//«ix»»OBO0cei or m«domi,iu> 

300 r0lMT(//iII|lI«*2/N«i(t/)M , iMI|9»/) 

too rO0MTC|X,«|*t/fN#I(0/ON)*«CI/«3»»»T|# t O,te,»OT I»'#FI2 t 9) 
700 rO0MAT(tX»*TMC 0U* OF All CIA00I0 10 l£0S THAW FlVCO 

ooo ro0MT(ix»iorio t n 

COD 



} 

i 

{ l 
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MULTI DIMENSIONAL HISTOGRAM OF 
FEATURE VECTORS 


■r w * — .*wM«ugpjpp 


NAME 
HASH 

DESCRIPTION 

The routine obtains the histogram of the four-dimensional vectors 
representing Landsat pixels in a scene. Using the histogram, the 
mean, variance, and entropy are computed. 

CALLING SEQUENCE 

CALL HASH (A, N, NPOP, IFEAT, NREC, NPIX, JFAC, IMOD, JMOD) 
where 

A is the input buffer, 

N is an array for storing the table of vectors, 

NPOP is the array of frequencies of occurrences of the vectors, 

IFEAT Is the maximum number of different vectors allowed (determines 
dimensions of N and NPOP), 

NREC is the number of records in the data set, 

NPIX is the number of pixels per record, 

JFAC is the multiplier used in determining the table location of a 
vector, 

IMOD is the divisor used, and 

JMOD is the base used. 

IV. INPUT/OUTPUT 

1. INPUT 

The input data should be on unit 10 in bytes. 

2. OUTPUT 

The program prints intermediate vector counts for every 100th 
and 1000th input vector, the vectors that occur at least 1000 times, 
and the number and percentages of vectors that occur 1 to 99 times, 
and multiples of 100 and 1000 times. 
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V 


DESCRIPTION OF SUBROUTINES 
No other subroutines are called 



IJI .Itimpvipfpi .1 PI 


■*: 


! 


PERFORMANCE SPECIFICATIONS 

1. STORAGE REQUIREMENTS 

The subroutine requires 3770 bytes of storage. The storage 
required in the calling program is twice the maximum number of 
vectors allowed, in words (for the arrays N and NPOP), and the 
Input buffer array. 

2. EXECUTION TIME 

The processing rate varies greatly with the distribution of 
vectors, but Is approximately 9000 input vectors per second. 

Hie execution time increases if the length of the frequency 
table (NPOP) is not somewhat greater than the number of vectors 
found. 


VII. METHOD 

A straightforward table of occurrences can not be used because the 
maximum possible number of vectors from Landsat data is 
128 x 128 x 128 x 64 ■ 134,217,728. Consequently, the divisor', base, 
and multiplier are applied to a vector to compute a location in a 
shorter table. Each component of the vector is divided by the 
divisor and the remainder for each component obtained. Using the 
specified base, the remainders are used to obtain a four digit number. 
Since this number is not unique with respect to input vectors, the 
number and hence the aval table table locations are multiplied by the 
multiplier. This final number is the table location at which the 
search for new vectors begins. Additional details and results are 
given in reference (1) and a flow chart in Figure 4. 
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COMPUTE TABLE 
LOCATION USING 
MULTIPLIER, DIVISOR, 
BASE 


LOCATION 

FILLED? 


INCREMENT 
VECTOR COUNTER 


\ 

L 

L 

SET POPULATION 
TO ONE 


N 

L 

C 

1 

ADD VECTOR 
TO TABLE 


\ 

t 


GO TO » 


VECTOR? 


INCREMENT 

POPULATION 

COUNTER 


Figure A. Flow Chart for Creating Vector 
Table In Subroutine HASH 


2 









VIII. COMMENTS 

The storage required can be estimated from the following relation 
between the number of vectors (N) and the divisor, base, and 
multiplier: 

N £ M • (0-1) • (1+B+B 2 +B*) with B > D and M > 1. 

For the Mobile Bay data set, the optimum values were found to be 
D - 11, B - 12, M - 3. 

IX. TESTS 

The algorithm has been compared with other techniques on test data 
sets. 

X. LISTING 

A listing of the routine follows. 
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Siihkl.l ff\E HASH (A, N , kPtP, IFfcAT, N*F.C, NPIX, JFAC# IHOO# JPOC) 
1HC PROGRAM C0*K‘U8 A 4 DIMENSIONAL HISTOGRAM, 

Inf HISTOGRAM IS USED tr COMPUTE THE *FAN, VARIANCE* ANO ENTRCPV. 

W VECTORS AHf HKAIl IN CNE RECOUP AT A TIME USING THE VARIABLE A, 

*( 1 )»I.Cf*PONpNTS HE THE i * TH VECTOR IN T^E TABLE 

MHiP(T)sTHE NUMBER Of OCCURRENCES Of f HE ITM VECTOR IN THE TABLE 

IftAlsHAklMUH ftiUHBEH CF DIFFERENT VECTORS ALLCNED 

nRECsnumHEH I'E Rf COHOS TO EXAMINE 

M»lX«M.:PBFft OF PIXLLS PER RPCQ&D 

JE AtsHOl.TIRl If R 

1H0D*CI VISOR 

J w O|)BHA$L 

i M # tM* THE COMPONENTS Of A VECTCR (L0GlCAL*l AND INTEGER) 
vHAnOsm^HER OF SPECTRAL IMAGES OR VECTOR DIMENSION 
.^TeA VAN I ABLE USED TC COUNT THF MiMpfcR OF PICTURE ELEMENTS (PELS ) 
VAP I ARC E USED TC COUNT THF Ml'BER OF CIPFERFNT VECTORS 


INTEGER A(NPIX) 

I'jHfNSION N(IFEAT), NPrP(IEEAT), NN(?f>0), IH(128) 
I. Ob I C A| *1 l M ( fl ) 
f til) | V AlF Ntf (I** L M ( 1 ) ) 

VA f A NHAi-.C /«/ 

lUHALUE ALL VECTOR PCPLLATICNS TC /E*0 
f*C M4 ISI.IFEAT 
( H'PM )su 
*• U»n 1 si* 
v f ACsll :<> 
f LU s « 

I'SS S »j 
i i* S s I * 

‘RITE (H,7S0) nR I X , NRK , JEAC, 1*00, J'OD 
•RITE (0*7)0) 

LCuP 300 HE Af In NKfC RECORDS 
i.'(. <("• 1*1, N'Rf ( 

HI AO IN LNE RECORD 
RE AO () 0 ) A 


* *** fe* 


A C L i i M L A T F E Cl R OIoEnSJCRAL HISTOGRAM pi,R PACE RECORD 

IT J>(.r. JS1 ,NRJX 

LEI EACH VECTOR OUT CE A AND PUT IMG M 

J ) r A I .) ) 

- (. T r E lS Tonal hISTCGRAh ROUTINE (COMBINATION TABLE. LOOK UP/SEARCH 

MwUf.E ft RE ) 

Cr^P! t ‘ lAHLE LCCATlCN ERCM VECTOR tO'-’P* RENTS 


r 


I 




•4S 


99 


Ot 99 N6*1,KHANC 
Milk s LP(NB) 

L * L^JMOO ♦ POD(NXX,lPOD) 

L « JFAC*L ♦ 1 

U«l 


C 

C 


C 

t 


CHECK FOR EPPTY TABLE LOCATION 
too lF(NpCP(l),Nfe t O)GO TO no 


reproducibility op the 
ORIGINAL PAGE IS POOR 


c 

c 


HAvfr FQUNO A M* VECTOR# INCREMENT VICTOR COUNTER 
kgumskountm 


C 

c 


CHECK 10 SFfc IP LIMIT ON NUMBER OP VECTORS IS EXCEEDED 
IF (k0UM,6T,IPEAT) 60 TO R00 


C 

C 


SFT POPULATION OF NEK VECTOR TO ONE 
NPGP(L)«1 


C 

C 


PU1 Mm VE-CTOR INTO TABLE 
N(U > IP 

IP (LLitttfL) NLU • NLU ♦ I 


C 

C 

C 


PRINT PEL NUMBER FOR EVERY I00TH AND 1000TH VECTOR 

IP (MCO(HOUM,MFAC) # Nt,0) 60 TO 200 

kM • NPJX*(I»1) ♦ J 

* • HOAT(KM)/fLOAT(KOUNT) 

N«|TM6,BOO)I,KNT,KOUNT,X 

IF (KOUNT ( GE *9900 ) PF AC • 1000 

6C 10 200 


C 

C 


TABU LOCATION IS FILLED* 

CPEC* TO SFfc IF VFC TON 18 IN TABLE 
110 IF (N(L) t NF t lM) GO TO 130 


VECTOR IS IN TABLE# INCREPENT POPULATION COUNTER 

nPUP(L)«NPOP(L)M 

IF (li.eo.o NSS ■ NSS ♦ 1 

60 TO 200 


C 

c 

c 


VECTOR IS not the same as the ONE PITH INDEX L 
TRY THE NEXT INDEX 
NMS 8 NMS ♦ 1 


c 

c 

c 


CHECK TO SEE IF INDEX 18 LARGER THAN fcNU OF TABLE 
IE 80* SET INDEX TO ONE ANO START AT BEGINNING OF TABLE 
IF CL.GT.IFEAT) L • 1 
GO Tn 100 


C 

C 


RETURN TO NEXT VECTOR 
200 CONTINUE 


C 

C 


RETURN TO NEXT RECORD 
300 CONTINUE 


C 

C 


HAVE CCPPLETED HISTOGRAM 
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■ -Ar t ■ '- , ,. . - ■ /' .■ 

*T ‘ ‘ „ 

"^Viy '. .. - 


. 111 'U.I*ilili|ip^p*^8PilP^»*f 


\ 


PfclM l AST nE» VECTOR AM' PFL NUHHEP THAT OCCtRPEP 
t* i.o ]« J»t 

f M 8 i‘PIXMl- 1 ) t J-l 
Lf I 8 knT 
tOUN fSKQuM 
> 8 cM/tnuKt 

“RITE ( 6 , HOO) I# KNT, KCUNT , X 
*^' s I TF ( 6 ,HoH) M.U, N 38 , NFS 


*RlTE U > T FEATURE VECTORS that OCCUR at least iooo TIRES 

NVfcC * 0 

00 «*><• I*i, 1EEAT 

I E (NRcPft). IT, 1000)60 TO aso 

1 r 8 N ( 1 ) 

fvEC * nvEC ♦ I 
IN CKVfcC.fQ.l) "RITE (6,810) 

If (Mi;(NVfcC,2),F.0,l) WRITE (6,81 1 ) l*, NPOP(I) 
if (M f (NVFC,?),EG,0) WRITE (6,812) L", NPOP(I) 

<4Sti CONTINUE 


P0PUIA1KN DISTRIBUTION In LOGARITHMIC INCREMENTS 
Uf. 500 1st ,206 
S(>«» NN(t)S(> 


GO 550 l* 1 » TE E AT 

if (npipci ), f.c, 0 ) gc m *5o 


r; 

r: 


COUNT l*E Mjf'HE R OF VECTORS THAT CCCu* iOOO’S CF TIMES 
| | SN P( P ( f ) / 1 000 
( 1 1 # t t , i )Gt rr sio 
K8TH108 
M’ TO 560 


COUNT r*-E min>ER OF VECTORS THAT OCCU* 1 00 * S OF TIMES 
5H- i I8M*0( I)/100 

] N f I J .1 T , 1 )6C TO 530 
I I • 1 1 +69 

GO Tt 560 


CCgM 'M MUMPER ON VECTORS THAT rCClj* E ROM 1 TO PR TIMES 

5VJ llBNPLRCn 
5 m> ' MI n*' h ( I I ) ♦ t 

55 1 ' (.ONTlM.it 


1 


mwU.T IHf M-wmEH ON VECTORS THAT rCCu* 1-RR TIMES, 100*8 AND 
KUO'S (> TIMES 
«R I T t (6,815) 

.1 s (i 
l*‘l S I 

• < 560 1*1 ,<»0( 

If (I.tU.IOI) INC * 100 
If (J.tU.110) IM * 1000 
J e .1 ♦ INC 

if (M ( I ) ,t (.,(') GO TO 560 

XSNM | ) *1 OO/CC UNT 
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WH1U (6,820) J, NN ( 1 ) , X 
*60 CONTINUE 
C 

C COMPUTE THE MEAN# VARIANCE AMO ENTROPY FROM TME MIBT06RAM 
ALN2 * ALOG10(2 t O) 

00 610 M6>|# N0AND 

NXM B 0 
NXV B 0 

SUM B o.o 

00 *85 XbI , 126 REPRODUCIBILITY OP THE 

585 IH(I) « 0 ORIGINAL PAGE IS POOR 

00 600 lal'XFFAT 
IF (NPOP(l),EU,0> 60 TO 600 

IN b MI) 

MXX a LM(NB) 

NXM s NXM ♦ NP0P(!)*NXX 
NXV S NXV ♦ NpOP(I)*KXX*«? 

IMNXX + l ) B IM(NXX6l) ♦ MPOP(I) 

600 CONTINUE 

XNfiAN B NXM / CNT 

SIGma s (nxv»CmT*XNEAM*a2) t (CMT»1«0) 

00 605 181,128 
IF (IMI),EQ,0) 60 TO 605 
PROBX a EH ( 1 ) / CNT 

SUM s SUN ♦ PROS X*AL06 10 (PROBX )/ALN2 
60* CONTINUE 

EN'TMPV a -SUM 

610 MRITE (6,830) N0, XNEAN, 8I6MA, ENTHpV 
RETURN 

C 

710 FORMAT (//15X,'8CAN NO, 1 , l OX, 'PIXEL NO, ', 10*# 'VECTOR NO.MOX, 
,'P/V RATIO'/) 

750 FORMAT Cl PIXELS USED 6 ' , I5#5X, 'RECONOS U8E0 b' ,!*,**, 'MULTIPLIER 
, bM3,5X, 'DIVISOR ■ ' , I3#5X, 'BASE t',I3) 

600 FORMAT (3120, F20, 4) 

805 FORMAT (/• LOON UPS « • , IT, * SINGLE SEARCHES • •# IS,' MULTIPLE 
,St ARCHfc S s', 16///) 

810 FORMAT Cl »,20X, 'VFCTOPS MlTH POPULATIONS OF AT LEAST 1000*//) 

611 FORMAT (10X, 414,110) 

612 FORMAT ('♦', SOX, 414,110) 

615 FORMAT ( ' 1 ' , 1 Ox , ' MC , OF TXM|8'/6X,'A VECTOR OCCURRE O' # 10X, 'NO. OF 
.VECTORS', 10X, 'PERCENT OF TOTAL*/) 

620 FORMAT (120, 1?5#F25,4) 

H30 FORMAT (/10X, 'BAND', I3#5X# 'MEAN •• ,FS,3,SX, 'VARIANCE B'#F0 r 3,5*, 

, 'Entropy «',fs,3) 

EM) 


COMPARISON OF SUPERVISED CUSS I FI CATION MAPS 


I. NAME 
COMPMP 


II. DESCRIPTION 

To compare two supervised classification maps (or a Ground Truth Map and 
Supervised Classification Map) and print their Joint histogram and the 
numbers and percentages of various t)pes of differences. 


III. 


CALLING SEQUENCE 

CALL COMPMP (IX, IY, LY, CLASS, NREC, NEL, M, N) where IX, IY, LY are 


arrays dimensioned: 


IX (NEL, 3) 
IY (NEL) 

LY (NEL) 


> bytes 


CUSS (maximum of M and N) double words 


NREC * number of records in the two maps 

NEL « number of pixels per record 

M, N are the numbers of classes In maps I and 2 


IV. INPUT/OUTPUT 

1. INPUT 

The input maps 1 and 2 to this program should be on units 8 and II 
respectively. They should have NREC records, NEL pixels per record 
and one byte per pixel in unformatted FORTRAN readable form. A 
title of up to 72 characters Is input by card. 

2. OUTPUT 

Besides the printout, this program writes difference map on unit 12, 
with NREC unformatted FORTRAN records of NEL pixels each having one 
byte per pixel. 
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OF THE 

POOR 

DESCRIPTION OF SUBROUTINES 

The only subroutine called Is READAR which reads a specified number 
of bytes Into an array. This Is to avoid Implied DO loops In read 
statements which are excessively time consuming. 

PERFORMANCE SPECIFICATION 

1. STORAGE 

The routine requires 3790 bytes of storage. The work arrays 
dimensioned in the calling program require 5 x NEL bytes of storage. 

2. EXECUTION TIME 

The processing speed Is 16,700 pixels per second, averaged over 
several runs. 

METHOD 

This program first sets an M by N matrix JNTH to zero, and then finds 
the joint histogram between the two maps. 

The next step Is to separate the types of differences between the two 
maps and Indicate them by different symbols. The numbers 0, 1, 2, and 
3 are used to Indicate exterior points, no difference between the maps, 
boundary points where the maps are different and interior points where 
the maps are different, respectively. The "exterior points" are defined 
as those where the "class labels" In either of the maps are equal to 
zero. The "boundary points" are those whose class labels are different 
from that of at least one of their four nearest neighbors (top, left, 
bottom, and right) In map I. Points which are neither exterior nor 
boundary points are called "interior points". 

These indicators are generated for eech of the points In the maps and 
written on an NREC by NEL pixel sequential data set (unit 12). The 
numbers and percentages of occurrences of these indicators In the output 
data set are counted and printed (except for the exterior points). The 
percentages of occurrences are evaluated based on all but the exterior 
points. 


reproducibility 
original page is 


COMMENTS 

The date set on unit 12 can be used directly to generate a difference 
map. 

TESTS 

This program has been used In deriving the difference maps and similarity 
measures between several pairs of classification maps and found to work 
satisfactorily. An example of the printed output follows. The Joint 
histogram Is augmented to Include the Inventory counts and percentages* 
the total number of pixels* the inventory accuracy* the classification 
accuracy* and the number of correctly classified pixels (with respect 
to Map 1). 

LISTINGS 

The listing of the program is attached at the end of this section. 


NOMLfc BAY Cf* VS* IINcM CLASS If 1C AT luH %0 HAO 1 RlT 

INAGC SU6« l*«0 BY 1200. NUHBtAS Uf CUSSES 1* *APS I AIM 2 ABE 
TUTAL NO. Of VALlO tHON-CXTfcA IUA* fOlMS » YA332B 



Figure 5. Sample Output of Subroutine 



SUHRRITINE CG“PPP (IX, IY# LY# CLASS# N*EC# NEL# P# N) 

TM8 HCI TIKE PINOS APO PRINTS THE JOT* T HJ8T0GRAP 
HE.T«EEn f»ft "APS* EACH PITH NREC I !*M *M> NEL PIXELS PER LINE# 
T*E FIK8T PAP SPOul.O HAVE m CLASSES O* LESS# APO THE SECOND# N OR 
M*8 a UPU? PAPS I AND 2 c* UMTS 6 AM) It HAVE PURSERS 0 THRU P# 
0 THRl A RESPECTIVELY f UNFORMATTED PC*T*«AN) a 

T»t OUTPUTS OP THIS ROUTINE ARE I 

1) PRIM OF THE JO!M HISTOBPA*# TMC NUMBER ANO PERCENTAGE 
OF CPRRiCT CLASSIFICATIONS# ERRORS AT BOUNDARY POINTS AND 
ERRORS AT INTERIOR POINTS! 

2) OUTPUT PAP CP UNIT 12 SHOM*G THE TYPES OF ERRORS# 

i.(GICAt«I !X(kEL#S)# IV(NEL)# LY(PEL)# SOY# TIUE(72) 

It I HEPS ION 1NIM# PCTACt (21 ) 

L0''HCP/C0PTAB/JPTH(2l#21)#lHl(21)#tH2(?n«PIRCPT(?l)#PCTlH?(2t)# 

• C 1 C 21 #21 ) #MCT 
IMrnER POINT (4) 

OCUHLE PNFC1S10N CLASSCl)# TVPEC*)# I NY# PCT 
ICPTCALAl FPT ) (2?) # EM2(*0), OIGITS(iO) 

OATA 1 VPf /tEXTENICRt# »NC ERPCY*, *BOUNOARV«, «P0 BOUNO«/ 

DATA tNY# PCT /»INVNTCRY»# » PERCFPT t/ 

data riGITS /•OI?««SftTR9's# FPT1 ✓•Ct"V#29X# (!QX)»P10#2) */# 

#F"I2 /«(1HA#29l# (10*). HO)*/ 

or. i in#* 
on l .ui#p 

1 JMM(I.J) S 0 

2 1«1* « 

2 I M 1 I ) * 0 

CAU PIAOAH ( H . IX# NE.U 
*>l 5 IslfAEL 
S 1X11.2) » IMI.l) 

«<t S I«1 #3 
S Pl-lPT ( I ) • 1 

00 I! l*l»M«Et 
1! « PtlM(l) 

*2 • PMMC2) 

M t Pi INTIS) 

IP (I'LT'PNEC) CAU REACAR (8# I*Cl.Hi). *EL) 

R»AO Ml) IT 

»C 22 J*1#PEL 

L V ( J ) • t 
HS 1 X ( J # K2 ) 

LC 1 V ( J ) 

i.kECp IP P»Tlw|C fc PIXEL IN CITHER mAh 
IP (I #M>#0#0i«#N a H3#0) LO TC 30 


OMMULMkk 
^ POOR QUA) r*. 


i.iMmii class assicspept matrix 
.K.lH(MfL) s JMnIX.I) ♦ 1 


CHICK WHETHER CLASS MiHSCKS AGREE 
If (K a C8 a L) 80 TO 38 

CHICK HHCTHKK *»NV OK THf S H|AK|8T H|I0*R0R8 OK THI IX Him 
AKI A OIKKfKfHT CLASS 

BOV ■ !X(J*K8) a NE a IX(J*Kt) 

. a 0R a !X(J*R8) a NE a tX(J # K») 

aa 0R a J a 8T a i a AN0 a XX(J*K8) a NE a SX(J*t*K8) 
a #OK a J a LT a HtL a AH0 a IKCJ#Kl) a Hf .IKCJ aI #K8) 

IK (80V) LVCJ) ■ 8 
IK ( a N0T a 80V) LVCJ) ■ 3 
60 TO 38 


38 IK ■ LVCJ) ♦ I °^^ C PAGP Y ° F TUB 

XHClH)»IHClH)Ht L PA GE IS 

88 CONTINUE K 

DO 18 J«t»S 

88 ROINTCJ) « M00CR0|NT(J)*3) ♦ t 
)t WRITE (t<) LV 

KIND MjHOER OK *0*»tXTfR!0R KIXIL8 An» CLASSIFICATION ACCURACY 
NTOT ■ NREC«NEL • IHC!) 

KAC«l00 a /NT0T 
ACC • KAC * IHC8) 

kino class occur anc us in hah t and hak i 
00 9 1*1 #H 
9 !H! (!) ■ 0 
DO 10 Ifl #H 
DO 10 J*1|N 

10 SHI (!) • INI (I) ♦ JHTHCItJ) 

00 19 J«1#N 
19 IH8CJ) • 0 
DO 80 J«t#N 
00 80 I«tfW 

80 !H2( J) • IM8CJ) ♦ JATHO# J) 

KINO SIHXLARITV HKASURIS BASED ON CLASS ROPULATIONS ONLY. 

MINC ■ *INO (W, N) 

INV ■ 0 

00 08 Ht#W!NC 

08 INV * INV ♦ HJNO (1*1(1), IH8CD) 

SIM • KAC * INV 

PRINT HIST06RAH AND PERCENTAGE OCCUHANCIES 
KHTt(lO) ■ DIGITS(N) 

RWT2C10) • OISITS(N) 

RIAO (8*100) TITLE 

WRITE (0*800) TITLE 

WRITE (0*000) NREC* NEL* W* W 

WRITE (0*300) NTOT 

WRITE (0*8«0) 

WRITE (0*108) (CLASS(J)* J»1*N), fNY, PCT 


« Poor 



> 

■*. 


"• 70 ,/#t,K 

/ * *>C «!>**>( J) # FAC * 1M2( J) 

ur bo i*w w 

MfKCNtl I) « FAC * rH|(I) 

*»MACCtt> * 100.0 * JMH(!,I) / |H| (!) 
wKtrr CB, ion CLASsm, (Jnthu,j), jm»ni, imcd 
-*» .*»TF ce.»PBTl) PfcRCNT(I) 

1 TP (t>,101) INV, (!H2(J), J*t,N), MOT 
*«lTt (#»*K«T1) ACC 

*wfU 1^,101) HCT, (PCTIM2CJ), J«1,N), SIM 
‘Min' (6,PMT?) IM(2) 

« J 1 fc (B.104) (PCTACC(J), JSl.N) 

*M 1 » C*»bOO) 

OC Oy I*2,« 

MMCMBlHd )*PAC 

'»•* *>ITE(b» 700) TYPfc f I). tM(I),PRCNT 
«»in (0,700) TYMEd), IHU) 

*FTtjRN 

1«»(. HCh-aT (72A1) 

»••» f rw*»AT ('0*, AO, 1 1 110) 
l<? KH-M (/I IX, 12A10) 
l 'i K-ttMAT ( '0 1 , AO, 1 IP 10.2) 

1 to K’P-At CO ACCURACY', 11F10.2) 

H.WKAt ('I <,SX,72A1) 

CO TfTAL ^0, CP VALIO (NCN«F *TPRIOR) POINTS «',I7) 

<1 *C format CO I (-AGP SlZfc* * I*» # * BY * 15, ' , NUMBERS CP CLASSES IN MAPS I 
. a;»|) ? AWFM3,' AND ' 13,',') 

S ii 0 FCHI*AI c//40k,|9C*')/S0X,(* JOINT HI*>TuGRAM * » /30X , 1* (• * • ) ) 
t»f KW-At l//10», 'TYPE ',5X, 'NO, CP 0CCllW K E N CF3» ,5X, 'PERCENTAGE'/) 

/no F OR- AT (/A16,I15,P20.2) 

F\L ! 
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SUBROUTINE REAOAR (NTAPE! * W# NSANP) 



C 

c 

c 

c 


c 

c 

c 

c 

c 

c 


READ NSANP BYTES tNTO ARRAY N PROP LOGlCH. UNIT NTAPEl 


LOGICAL*! w(NSAPP) 

READ (NTAPEt) m 
RETURN 




ENTRY WRITAR (NTAPEl# *« NSA"P) 

WRITE NSAPP BYTES FRO" ARRAY * ONTO LOGICAL UNIT NTAPEl 

WRITE (NTAPEl) N 

RETURN 

END 




J 

i 




\ 

i 
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COMPUTATION OF CONTINGENCY MATRICES 

j 

I. NAME | 

CONMAT 

t 

i 

t 

II. DESCRIPTION 

To obtain and print "contingency matrices," showing, for all pairs of | 

classes in two classification maps, the numbers of simultaneous occur- 
rences of various types of transitions (no boundary, horizontal boun- j 

dary, vertical boundary and boundaries in both directions). j 

III. CALLING SEQUENCE 

CALL CONMAT (NTAP1 , NTAP2, NREC, NEL, M, N, IX, IY, !H) 
where 

NTAPI, NTAP2 are the unit numbers for reading the map class numbers, 

NREC, NEL are number of records and number of pixels per record, 
respectively, 

M, N are the numbers of classes in the two maps, 

\ IX, IY, IH are work arrays dimensioned IH(4, 8, M, N) words, 

' IX (NEL, 2), IY (NEL, 2) bytes. 

IV. INPUT/OUTPUT 
I. INPUT 

The input maps should be sequential data sets on units NTAPI and 
NTAP2 with NREC records and NEL pixels per record on each of them. 

i 

j The number of bytes per pixel should be 1 and the records should 

be unformatted and FORTRAN readable. 

A title of up to 80 characters is card input. 


i 

i 
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V. DESCRIPTION OF SUBROUTINES 

The subroutine linkage Is Indicated In the following table: \ 


CALLING PROGRAM 

PROGRAMS CALLED 

CONMAT 

SARN 


INTLOG 


CONMXP 


S VI. PERFORMANCE SPEC! FtCATI OHS oSaL^geTsTO^ 

[ I . STORAGE 

| I The storage required by the routines CONMAT, INTLOG and 

CONNXP is 1772, 212 and 5276 bytes, respectively. 

2. EXECUTION TIME 

Depends largely on image size and number of classes. For the 
case NREC»1600, NEL=850, M=N=6, it requires approximately 8 
minutes. 


VII. METHOD 


The definitions of contingency matrices used here have been discussed 
in [2] and wi 1 1 not be covered here. The subroutine CONMAT is used 
to find a four dimensional array IH (dimensioned (A, 8, M, N)) and the 
routine CONMXP is used to print 

a. M*N matrices (size k by 8) showing counts of agreements and 
disagreements for each type of transition for each pair of 
classes; 

b. M*N matrices (size k by 4) showing counts of each type of 
transition for each pair of classes obtained by adding the 
right and left halves of the corresponding matrices from 
a. and dividing by 3; 

c. A 4 by k matrix showing totals of each type of transition 
obtained by ail the matrices In b; 


i 
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Figure 6. A Portion of the Printout from CONMAT 


l»0 














d. An M by N matrix which ts the joint histogram (contingency 
table) of the two input maps, whose (I, Jjth element is 
obtained by adding ail the 16 elements in the 4x4 matrix 
corresponding to classes (I, J) defined in b; 

e. The individual histograms (inventories) of the two maps 
obtained by adding the columns (for map 1) and rows (for 
map 2). 


Also, the transition and point by point similarity counts (traces of 
the 4 by 4 and M by N matrices, respectively) and percentage similarity 
measures are printed^. 


VIII. COMMENTS 


The maximum class number is 10. 


Reproducibility 
original page is 


op THE 
POOR 


IX. TESTS 


Portions of the printout from a test run on the Mobile Bay ground 
truth vs. linear classification (December 5, 1973) are shown at the 
end of this section. 


X. LISTINGS 


The listings of CONMAT, CONMXP, and INTLOG are attached at the end of 
this section. 
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SUBROUTINE C0NWAT(NTAPl,NTAP2,NRCC#NEL,M#N,lX,IV,4H# 

THIS PROGRAM FINDS CONTINGENCY MATRICES INDICATING AGREEMENTS 
BETWEEN TWO MAPS IN TERMS OF CLASS LABELS AND THE BOUNDARY TYPES# 
IH(*#*#I,J) REFERS TO LOCATIONS WITH CLASS I IN MAP I AND CLASS J 
IN MAP 2# LEFT HALF OF IH GIVES A COUNI OF AGREEMENTS AND THE 
RIGHT HALF# DISAGREEMENTS# 

ROWS OP IM(*,*,I,J) CORRESPOND TO MAp t# AND COLUMNS TO MAPS, 

RON NUMBERS 1# 2# 3# « INDICATE NO BOUNDARY# CHANGE IN VERTICAL 
DIRECTION# CHANGE IN HORIZONTAL DIRECTION, CHANGE IN BOTH DIRCC" 
TIONS# RESPECTIVELY# IN MAP 1# SIMILARLY COLUMN NUMBERS INDICATE 
TYPES OF TRANSITIONS IN MAPS, 

THE PROGRAM HANDLES THE PRESENT ROW 0* THE MAP 1 IN IX(*#I2) 

AND THE IMMEDIATELY PREVtOUS ROW IN IX(*,!l), THE ROWS OF MAP 2 
ARC HANDLED SIMILARLY IN IY# 

DIMENSION IH«i,S,M,N) 

LOGICAL*! IX (MEL# 2) # XV(NEL#2) 

INITIALIZE the ARRAYS IX AND IY# THE "PREVIOUS" ROW TO ROW ! IS 
CONSIOEREO IDENTICAL TO ROh i# 

CALL SARN (MAPI , IX, NIL) 

CALL SARN (NTAP2, IY# NED 
00 10 «)•! #N!L 
IX(J#2)«IX(J#|; 

10 lY(j,2)*tY(J#n 
00 20 !«!»« 

DO 20 J«1#G 
DO 20 wwt#M 
DO 20 L«!#N 
20 IH(I, J,K,L) ■ 0 
11*1 
I2«2 

LOOP CN RECORDS# 

00 40 !«!#NREC 

LOOP ON PIXELS, 

DO 10 J*!#NEL 
JPWHAX0C1,J»1) 

NONPOSITIVE VALUES OP MAP LABELS ARE *01 OF INTEREST# 

IF (IX(J,I2) v EQ a 0#OR#IY(j,t2)#EQ,0) GO TO 30 

PINO ROW AND COLUMN NUMBFR8 IN IH TO *E INCREMENTED# 

CHECK THE NATURE OP THE BOUNDARIES IN BUTH THE MAPS# 

K*IX(J, 12) 

L*IY( J# 12) 

n«UINTL0G(IX(J,I2)#NE#!X(J,U))«2*)*TLOG(IX(J,I2),NE ( IX(jP,l2)) 

JJ»UlNTL0G(TYfJ,f2),NE,!Y(J,n))#2*PTL0G(lY(J,I2),NE,IY(jP,X2)) 

FIND THE increments, 

INC • NUMBER OP AGRfPHFNTS) INC3 • NUMBER OP DISAGREEMENTS# 
INC*INTL0G(IX(J,I2)#EG#tY(J,I2)) 
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c 
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c 

c 


c 
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• ♦ iKtiLOS(!)«(j,m,Eo,iv(j,n)) ♦ iNT| a o6nx(jp#i2)«eo 9 tv(jp>t2)) 

XNC3«1«XNC 

IHCH#J4#K,DRIH<II,JJ,K # D ♦ INC 
INCXI#4JA4 9 K#L>4IH(II# Jtf44 9 K#L>#INCl 
10 CONTINUE 


EXCHANGE XI AND It 
Mil 
lUXi 
xatXM 


ssssw* 


READ NEXT RECOROO XNTO XX(*« X2)» XV(*« 12) 
IP (XfEQ.NREC) 60 TO 00 
CAU SARN (NTAPt t XXCt»X2)f NED 
CALL SARN (NTAP2# XVU'Xt)* NED 
40 CONTINUE 


PRINT THE HATRICE8 8H0NXN6 TRANSITION COUNTS 
CALL CONHXP ( JH 9 NREC# NEL» *» N) 

RETURN 

ENO 





SUBROUTINE CONMKP UH, nREC# Ml# M, N) 

c 

C PRINT MATRICES BHOHtNO NUMBERS CP AGREEMENTS AND DISAGREEMENTS 

C OP TRANSITIONS POR EACH PAIR OP CLASSES* 

C INPUTS! TITLE IS AN SO CHARACTER(NAjt) TITIE TC BE RRfNTEO ON TOP 

C OP EACH PAGF CP OUTPUT, NRft# NEW# M, N ARE NUMBER OF 

C RECORDS# NUMBER OP RIXElS/RECORO# NUMBER OP CWAS8E8 IN 

C HAP I AND NUMBER OP dASSFS IN MAP 2# RESPECTIVELY, 

C 

DIMENSION !H(4,6,M,N), IH1<4,4), IM2(*0,20)» INVH20), INV2f|0) 
LOGICAL*! TITLE(SO) 

C 

REAO(9»100) TITLE 
1*0 

OQ 10 1*1, M 

DO 10 J*t ,N 

1P(MODCL#0),M,0)GO TO 19 
WRIT!(0#1I0)TITLE 
MRITE(0#000)NR(C#NFL 
IS CONTINUE 
L»L*1 

MR!TECO#SOO)I,J 
00 20 *•!»« 

20 MRm(ft#300)(lH(K,NK,I # J) f NKtl,e) 

10 CONTINUE 

C 

C FIND AND PRINT MATRICES SHOWING COUNTS OP EACH TYPE OF TRANSITION 

C FOR EACH PAIR CP CLASSES, THESE SHOS FOR ALL JOINT OCCURRENCES 

C OF CLASSES CI,J) IN HAPS 1,2, THE NUMPfRS OP JCINT OCCURRENCES 

C OP EACH TYPE OF TRANSITION IN THE T*0 MARS, 

00 30 1*1 , M 
DO 30 J*1 ,N 
DO 30 **1,4 
DO 30 L*l#4 

30 IH(K,L,l,J)*(IH(K,L,l,J)t !H(K,L*4,!,J))/3 

C 

L*0 

00 «0 1*1, H 

DO 00 J*t»N 

IF (MOD (L#4),N£,0)GC TO 45 
MR! TE(0# 110) TITLE 
HRIT!(0#410)NREC#NCL 
AS CONTINUE 

L*L*t 

wRITEfO, 500)1, J 
DO SO K*l,4 

50 WRITE(6,310)(1H(N,KK,I,J),NK*1,4) 

40 CONTINUE 

C 

C FIM) IHl, THF MATRIX OH COUNTS OP TRANSITION TYPES (WITHOUT REGARD 

C TC '•LASS LAfitLS) ANO IH2, THE MATRIX UP JOINT OCCURRENCES OP CLASS 

C LaBELS CNITH NO RECARO TO TRANSITION TYPES), 

DO SS 1*1,4 
00 SS J*l ,4 
55 IH!(1,J) • 0 


kk 


00 SO lilfM 
DO S6 J»I,N 

00 * 60 # lilV REPRODUCIBILITY OF THE 

00 OO J.IIn ORIGINAL PAGE IS POOR 

DO 00 KitfO 
DO 00 l«I#0 

!HI(N # U«tHl(Nfl)0tH(K # L»!»4) 

JH2U,J)ilH2(I,J)4lM(K,l,I,J> 

PRINT SHI AND THE CORRESPONDING SIMILARITY MEASURE • 

WRITE (Of ItOITITUC 
WRITE(OfOSO) NRECf NEl 
DO 70 KtlfO 

WRXTE(Of310)(XHI(K # UfLBlfO) 

XTRsO 
XSUWRO 
DO 90 X«tf« 

XTRrXTRaXHI (I# X) 

DO 90 4 flf 0 
XSUWRXSUNAXWI(XfJ) 

PCT«ITR*!OO a /XSUW 
WRITE (OfOOO)ITRf X8UW#PCT 
WRITE (OfOJO) 

PRINT XN 2 AND THE CORRESPONDING SIMILARITY MEASURE . 

DO SO lit f M 

WRXTE( 0 « 3 ) 0 )(IH 2 (IfJ)fJP|fN) 

XTRiO 
XSUMbO 
DO 9 S XwtfM 

XP(I«lE,N)lTRaITRTlH 2 (IfI) 

DO 99 JaifN 
ISUMsXHKIf JIaISUM 
PCT«XTR*100f/ISUM 
WRITE(Of700)ITRfXSUMfPCT 

DO SI lit f M 
XNVKI) • 0 
DO 82 JitfN 
XNV 2 ( 4 ) • 0 
DO SS XitfM 
DO S9 JilfN 

INVl(I)iINVt(nTlM 2 (If J) 

INV 2 (J)iXNV 2 (J)AXN 2 (l«J) 

WRITE ( 8*800 HI NVl(X)*XilrM) 
wRITE(OfOSO) (XNV 2 (J)*<)itf N) 

RETURN 

FORMAT ( 00 A t 3 
FORMAT ( * 1 * 20 X 8001 ) 

FORMATCO' 418 * * | UX 8 ) 

FORMAT ( • 0 • t 5 I 8 ) 

FORMAT (/» MATRICES SNOWING COUNTS OF AGREEMENTS AND DISAGREEMENTS 
FOR EACH TYPE OF TRANSITION*/' MAP SlZER'XS*' BY * IS* • f 1 ) 



m mm 


MS 





1 


«to format!/' matrices showing counts or each type of transition*/ 

• /• *AP Sizes* 15* * BV'IS,t,i) 

azo FORMAT!/' MATRIX SHOWING TOTALS OF EACH TYPE CF TRANSITION'/ 

• ' MAP SltEl'IS#' BY ' IS# ' • ' ) 

«S0 FORMAT!//' CONTINGENCY TABLE 1 ) 

500 FORMAT!//' CLASS NUMBER IN MAP IR'IZ#' CLASS NUMBER IN MAP IR'IZ) 
600 FORMAT!' TRANSITION SIMILARITIES*'^, 'I T0TAL*'17#»I PERCENTAGE* ' 

• FT.*) 

700 FORMAT!' NUMBER OF POINT BY POINT SIMILARITIES*' 17, • T0TAL*»I7# 

• « PERCENTAGE* 'FT, 2) 

600 FORMAT!/' INVENTORY OF MAPI I »/!|X|5lB) ) 

010 FORMAT!/' INVENTORY OF MAP2I '/(IXtSlS) ) 

ENO 
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JUNCTION XNTLOQCL) 


C 

C CONVERT A LOGICAL VARIAOLE TO INTEGER 
C IF TRUE# JUNCTION RETURN! I 

C IF JAliCf JUNCTION RETURNS ! 

C 

LOGICAL L 
C 

XNTLOOR! 

IJCL)INTLOO«t 

RETURN 

ENO 


aSKSBi-y 
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CHAPTER III 


REGISTRATION OF IMAGE OATA 
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MAGNIFICATION OF IMAGERY 
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I. 

II. 


NAME 

CUMAG (Cubic Magnification) 

DESCRIPTION 

This subroutine magnifies a specified segment of Imagery data. The 
magnification Is by means of cubic Interpolation, which Is usad to 
compute the densities of the additional samples In the magnified 
Image. The routine also removes the distortions present In Landsat MSS 
Imagery which are due to Earth rotation and "sensor delay" In the A/D 
conversion of sensor data. The purpose of this routine Is to allow 
determination, to within a fraction of a pixel spacing, of the coordinates 
of ground control points. 


ORIGINAL PAGL IS P 


III. CALLING SEQUENCE 

CALL CUMAG (X. OUT!, 0UT2, NB. NEL, NSOUT. MAG. IGCPL, IGCPS) 
where 

X Is the Input buffer array. 

0UT1 Is the Intermediate output holding four tines of Interpolated 
data. 

0UT2 Is the output array. 

NB Is the number of channels of data. 

NEL is the number of Input pixels. 

NSOUT Is the number of output pixels. 

MAG Is the magnification. 

IGCPL is the ground control point line coordinate, and 
IGCPS Is thu ground control point sample coordinate. 


IV. INPUT/OUTPUT 

The Input data and the magnified output data are In bytes, arranged 
by vectors containing the data for each channel. The Input should be 
a direct access file and the Input and output logical units are 10 and 
II. 
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V. DESCRIPTION OF SUBROUTINES 

The subroutines required are given tn the following table. 


SUBROUTINES FOR CUBIC MAGNIFICATION 


NAME 

STORAGE (Bytes) 

FUNCTION 

CUMAG 

2306 

Determine input data coordi- 
nates allowing for each 
rotation and sensor delays, 
magnify the segment by cubic 



interpolation. 

DELAY 

496 

Function which computes 
shift due to earth rotation 
and sensor delay in units 


i 

1 of pixels. 


VI. PERFORMANCE SPECIFICATIONS 

1. STORAGE REQUIREMENTS 

The program requires a total of 50K bytes when magnifying portions 
of a LACIE sample segment by 8 times to a size of 241 x 241. 

2. EXECUTION TIME 

The time required for the 8X magnification referred to in the 
preceding paragraph is approximately 15 seconds. 

VII. METHOD 

The cubic interpolation formula 

I - d 3 (-11+12-13+14) + d 2 (211-212+13-14) + d (-11+13) + 12, 
where I is density and d is distance from the second pixel, is used 
to insert MAG pixels between the second and third pixels in groups 
of four pixels. Thus, given a string of input data containing IN 
input pixels and (IN-1) interpixel spaces, there are (IN-3) spaces 
in which to add MAG pixels. The number of output samples obtained is 

NSOUT » MAG (IN-3) +1. 

This is illustrated by the following diagram. 
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ORIGINAL 

INTERPOLATED PIXELS 
NUMBER OF PIXELS 


CENTER 0RIGINAL PAGE IS 

0 0 0 0 

xxx x y xx k x 

MAG MAG I 


It Is also apparent from the diagram that the magnified image Is 
centered on an Input pixel If t*«? number of output pixels Is chosen 
to be 

2n MAG + 1 , 

where n is a positive integer. Also* since interpolation starts at 
the second pixel in groups of four, the first output pixel is the 
second input pixel, and the spacing of the output pixels Is 1/MAG. 

Thus, if the magnification is 10, the input coordinates are obtained 
to 0.1 pixel. The Input coordinate values are given by 
IN - NS1 + 1+(0UT-1)/MAG, 

where NS1 is the beginning sample used for interpolation, and OUT 
is the output sample number. 

In the case of Landsat 1 and Landsat 2 imagery, NS1 will be the 
beginning sample in the distortion-free offset image, which is the 
image used for determining ground control points and geometric 
transformation functions. The beginning pixel in the offset system is 
a constant for the magnified image, while the input pixel numbers in the 
data vary from line to line due to the delays. 

The distortions in the imagery, due to earth rotation during the 
scanner retrace and delay in sampling by the A/D converter, are 
referred to as earth rotation delay and sensor delay and are 
computed by the function DELAY. As the Earth rotates from the west, 
successive mirror scans cover more westerly areas of the Earth, and, 
consequently, should be offset to smaller pixel values. The scanner 
sweeps an additional distance to the east during sensor delay and, 
therefore, creates an opposite effect. However, rotational delay 
per swath is larger up to a latitude of 48.8°. 
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The beginning pixel In the offset Image Is determined by subtracting 
the delay for the central line of the magnified region. (It then 
follows that when the offset pixel coordinates are converted to input 
coordinates, original pixels occur at every HAG output pixel on the 
central tine.) However, in general, due to the varying amounts of delay 
from line to line, the beginning input pixel occurs at a fractional 
value, which determines the initial value of d in the interpolation 
formula. The interpolation then proceeds along a line, incrementing 
the input pixel number and adjusting d to be the distance from the 
second pixel in the interpolation group. 

Vill. COMMENTS 

The program does not check for input pixels falling outside the 
data limits. 

IX. TESTS 

The output imagery has been examined carefully using printer plots 

and has been found to have the distortions properly removed. (See Fig. 7.) 

X. LISTING 

A listing of the routine follows. 
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REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


a 

bbbmk 

BB«~NHH»m»C 

is? i fHrtmHVMMmmufliHMimiiBiH 

A«iifiatMfii)ftocttflrB*H»iBt0iffcBcacf««a«MaQdi 
ceiMRMai«.HiiiiMi MirnfuiiiifNMiiiii 
MiiiifMaiiniMimiK I iNiiiiiiiMmitiiiiaHHi bbbbb 
HMfriMIVMHIICrililHIffMaKMIlNMaaillliaMlilMM 
aaima»kaaikiiHef.MMa»ai4iiiaiuaiao«iaaa«aa(BiaiaaaMai 
aBaMMfKaaMirafr^HaMaiiiaaaiMMOiaaacaaaaaaaecaBHifl 
■■■■acaMa»tDtBSH«(proHaR»PiaaaaaBa««Ba«Bff«HHHH(iHMenRO 
aaaaaaaaaaaaacfaaHraaaf^aaecfaaaaBaaaaaaaanNiiHiHaaaaoaa 

BMiiffHitiBMiiaiopRESifapiiMiiaBBBaiBiMBMxbHMdaaiaRaa 


aa 


bbbbb** ui xnataif *»c r»Mf if t aaaaaataaaaa" 
aaaaaa» ♦ oaihaiavr^ifRimaifiKKiNiaiax 
aaaaaB- -u »c»opaia(<aiMaari«(ia«tic(NiHaaa* 
aaaaat* i BfHxeot near f aacaf* taai* i !***•• hmh* 


aaaaaox i «Mxb«M* 4 M*RBaao«pfBi 

aaaafCH-f HCPHNCOCD^f^aaf i 
aaaaBPep*paPHMC«H>«®3rtaah-* i i 
BBaaaer“-xBBHHa*if»P3bxi i • 

aaaaaaM ciair««H» • inn • 


-H*M* flHHl 

Hts Jf 


• HRINIM 

•aaBBBBBB 

catBaaat 

MIBMN 

Haaaiaaa 


aaaaatBH -»• 

aasaaB»iH»HPH «u 
aaaaaaaaeHiaBBHiea- 
aaaaaa«aPMiaBi)KM«i6 
aaaaa«ftBOM»aadi xt*f» 
BBMBaMPH«BMI IBB* 
ft>aaataa^Hi-paci 
•fBaaBBaax-vaa» 

fBflBBBBBR* 
aiMBaaiM, »ftax» 


it him aBaaa i- iMBBaaaaa 
ISHXHl ••€•£** IH&BBBBB 
MUMfUNN *i i xaaaaaa 
-BfiHH HBBaaaaaaaaaBBB 
• I mi Haaaaaaaaaaaaaa 
HaaaaaBaaaBBBBB 




♦ H P I ♦ ♦ I I Hffbl 

•I •MMXMI- 
•- Nil I ♦MHHH* • I 

H«fHMaaafx«H»aBBaaaaaaBBBBB 
eifHnaaa c H(ei aaaaaaaaBBBVM 
iaa« CHBHMBBaaHCHioaaaaiaaaaBaBa 

mh i iPHoaaacHf BBaaiaaaBBBBBB 

li i i •xMHacaci cx»Haa«aaaaaaBBB 

i xh xc**x MHeHMiH»»aaaiflB««aBfBt 

-• • xhm i i*-tPRrai»xxxx ii • i H«aaaaaaaaaaa 

RSXBaftBfIMI •bBPIX I • •HBBttffff P6CPf ff CMaUB^MHMl PfaiBBaiBBf'.IB 

•ppaapPBifai as i • xmp*p«ii aa» kck as 1 1 a aa*bt«xni>#aaaaaaaaa 
fp«Baa>aaaN»*ca£i *«B«ot-H* »aaaa § 

ccRfaaaaaieci •paaxiaeaaaaiaafRRpatM •bb»#hm H , Haaaiaaaaaaa 
aiasiBfffaox -aBt i xaRiaaaaaf a bf8ait*>aaaaaH6Hi eaaBacataaaa 
(f fa BBBB fan* , a*-l MBBBBBBMBMMBBBt BP C mhi i B aaacaaBiBtB 
Heeimaafax* i » *xap tt ttFitKftffaaf acrr iff c i » * » aa aaaa&aaaa 
spiff# CBB8BM* HP^iH«>fiffa«faaia»aaffaaRBffacT MxaBaaiBBBBtB 
•Banff raaiBt* *itBxixHiRBBBifi«ioRBaiiaiaPMHxaiia«taBBBa 
•CP9afi;*a»aa* •tapHHPBaaaaaaiBatf-caBaaaaaffHCi i aaaaaaaaaB 
BKxxrBBaBPBra-»pa0HflfBaBBaaaaaaer*aiBaaaa*pe*-*aaaiaaa*B 
aaf€fBaaaaarr- ifa^xbaBaaaaaBaaaH^RaaaaaaaPPOi laaaaaaaaff 

BBBlfBBfBBIHP* S BB 3 10BBB BBBaaPK • l trKBBBB CBPMfe'IXbf' BfBaBBBB 

apati«»af ) aaa0H«»aBPiecBaaaaaaaar i ♦ 1 HCMBBC**IRBB aaaaBBBB 
BaBfiifBi«aff u «*aBHiHaBaaaaa«aBapx-*^faafrMHVxiaBaafaBB« 
aaoaaaaaaaaaxo* ttfa«ibaa«aaa»aBaBao' ifKaaetCHf^tcaPaaaaaa 
BBBBai B I — B BI IBfBBBtB— — B B B BM B OO BBBB B BBR I »atfataaa 
aafa«aaaafBBaci laacxHaaaaaaaaaaaafatcBBafaaaMiaaaaaaaaf 


rX 




aaaaaiifMfaifi 1 1 eaonfiB a>Baaaaaaaa*tai<Bicct«Baaetaa* aaoaa 
aaaoacf faaaaao»«tMOax ipaaiBaaBaBaflBffaaaneaaiiBfamaaabaa 
BiiftoaKBGaaaaaBaa»9HH-*afBcaaaaiaooaaaBaBfffaBafa6aaoaj4a 
•aaaaaaaaBBB8BBb-*HMi »oiiaaaaaB«BBaaa»f aaaaaaaaaaaaiPPaao 
• •aaaatMtaaaaax •#•»«! H*aaaDaBaataaa«'9taBaBaaaaaaaap*»pa 
jaa&aeaaaaaaaaax taaoiHaaaaaaoaafcaaaais-eaaaaaaaBBaaaaao 
•auera§Baaaafaab«)aiHx(BaaaBcaaBaaBBaarffaaaffaaaBiaaBf 
aaaccaoaaaaaaaaHB -aaoxciaa aaaaBRaoaaaooaasaaaaaaaaataaaa 
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Figure 7 * 


Huntsville Airport Registered to UTM Coordinates with 
Earth Rotation and Sensor Delay Effects Removed 
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SUBROUTINE CUH AG ( X, OUT t f 0UT2,N8,NEL,N8UUT, MAG, IGCPL #IGCP3> 


C 

c THIS ROUTINE RFMDVE8 EARTH ROTATION A^D SENSOR DELAY DISTORTIONS 
C AND MAGNIFIES IMAGERY SURROUNDING A GROUND CONTRCl POINT USING 
C CUBIC INTERPOLATION! 

C 

LOGICAL* 1 X(NB,NEL)#0lT2(NB,NSCUT) 

DIMENSION OU T 1 (NB#nSOUT #4) 

INTEGER POINT < <1 ) 

C 

AMAG ■ MAG 
DO 10 Jal,« 

10 POINT(I)Pl 
C 

C COMPUTE INPUT PIXELS REGLIREO, NOTE I N 8PUT SHOULD BE 1 ♦ An EVEN 

C INTEGER MULTIPLE op MAG to BE CENTERED UN AN INPUT PIXEL 

INPIX a (NSOUT*3*MAG«l) / MAG 
C 

C COMPUTE BEGINNING LINE AnD BEGINNING ELfrMfNT IN OFFSET COORDINATES 
NL1 a IGCPL • (INFIX. l)/2 
NS 1 a JGCPS • (INPIX. l)/2 
OFPN81 a N81 • DELAY ( IGCPL ) 

C 

C SELFCT REGIONS CENTERED ABOUT GROUND CONTROL COORDINATES 
NL a M l • 1 
NREC * 0 
12 CONTINUE 
NL a NL ♦ 1 
READ ( 1 0 • KL) X 
NROm a POINT C 1 ) 

DO 20 Ial,4 

20 POINT ( I ) a MOO (POINT (!)»<*) ♦ 1 
C 

C COMPUTE OFLAY FCR THIS LINE AND BEGINNING ELEMENT IN CCT COORDS, 
CCTNS1 a OPENS! ♦ DELAY (NL) 

C 

C FIND PFGINNING CCT PIXEL NUMBFR AND D (STANCE TC FRACTIONAL PIXEL 
C AT STARTING PIXEL AND AT ALL SUCCEEDING PIXELS 
DO 50 ieal,NB 
NS a CCTNS1 
D1 a CCTNS1 • NS 
D2 a AHOD COS • 1,0/AKAG) 

NPIX a 0 
C 

JO CONTINUE 

11 a X(IB,NS) 

12 a X(IB,NS*l) 

13 a X(IB,NS*2) 
ia a X(I0,NS*3) 

AO a 12 

At a 13 • 11 

A2 a II • !<1 A 2* ( 1 1*12 ) 

AS a I« • 13 ♦ 12 • II 
C 

C CUBIC INTERPOLATE A LINE, TO ENLARGE "MAG" TIMES 


5b 


c 


c 

c 


c 

c 

c 


c 


c 


INTS « 0 
40 CONTINUE 

0 « 01 ♦ INTS/AMAG 
IF <D,GT,i,0) GC TO 35 

NPIX • NPIX ♦ 1 

0UT1 (IB,NPIX,NRCM) > 0* (0* (DftAi ♦ A2) ♦ Al) ♦ AO 
IF (NPIX,tQ,N80LT) GO TO 50 
IMS • INTS ♦ 1 
GO TO 40 


ADJUST KS AND 01 FOR MEAT 
35 MS ■ NS A 1 
01 • 02 
GO TO 30 
50 CONTINUE 

ADD "MAG" INTERPOLATED LUES 
IN ARRAY * OUT 1 • * 

IF (NL»NL1.LT,3) GC TO 12 
00 70 INTL«1#MAG 
0 ■ (!NTl*l)/AMAG 

00 60 I B* 1 * MB 
DO 60 NP«1,NS0UT 
Bl»OUTl (IB,MP,P0IMT(1)) 
R2«0UTi (IB,MP,PCINT(2)) 
R3«0UT1 (IB,MP,PCIMTC3)) 
R4*0UT1 (IB#NP, POINT (4)) 

CUPIX ■ 0* (0* (D* (R4*R3aR 2« 
,<R3*Rl)) ♦ R2 
CUPIX ■ AM AX 1 (CUPIX, 0.0) 
CUPIX • AMIMt (CUPIX, 255,0) 
OUT2(IB,NP)«CUPIX+O t 5 
60 CONTINUE 

NRITE (It) CUT2 
NREC ■ MREC ♦ 1 
IF (NREC,fcQ,M30UT) RETURN 
70 CONTINUE 
GO TO 12 
END 


CCT PIXEL REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 

AFTER OBTAINING « INTERPOLATED LINES 


1) ♦ (R)aR4»2,0*R2 ♦ 2,0*R1 ) ) ♦ 
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oooooooorinn 


FUNCTION DELAY (LINE) 

COMPUTE ROTATIONAL ANO SENSOR DELAY RELATIVE TC FIRST SNATH 

OEGCFN • LATITUDE AT THE CENTER OF THE LANDSAT SCENE 
PIXOLY - EQUATORIAL EARTH POTATION PE* SNATH IN PIXELS 
DECPLN • CHANGE IN LATITUDE PER SCAN LINE 
RADDEG • RADIANS PER DEGREE 

SOELAY • SENSOR SAILING INTERVAL BETWEEN LINES (2) / TOTAL NUMBER 
OF DETECTORS (25) 

LINES* • LINE NUMBER IN THE SNATH (I ■ 0) 

DIMENSION 8DELAY (6 ) 

INTEGER CCTLIN, SHATH 
LOGICAL CCT 

COMMON /LANDST/ CCT, LLC , DE6CEN# SAMPOF, LlNCFF, AMPL, PHASE 
DATA PIXOLY, OEGPLN, RADDEG, SOELAY /0,P, 0.000710S6, 9,01745329, 
,0,0, 0,06, O.Jfe, 0.24, 0,32, 0,40/ 

IF (CCT) GO TO 10 
DELAY*0,0 
RETURN 
C 

10 CONTINUE 

CCTLIN « LINE ♦ LlNCFF 

DEGLAT ■ DEGCEN ♦ ( 11 70 , 5. CCTLIN) * DkGMLN 
RDELAY « PIXOLY * CCS (OEGLAT*RADDEG) 

SNATH ■ (CCTLIN*! ) /6 ♦ 1 

LINES* ■ MOO(CCTLIN»1,6) ♦ 1 

DELAY * R0ELAY*(S*ATH*1) • SOELAY (LINES'") 

RETURN 

END 
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FINDING COEFFICIENTS OF REGISTRATION 
HAPPING FUNCTIONS 


NAME reproducibility of the 

GCPFIT (Ground Control Points Fit) ORIGINAL PAGE lb POOR 

DESCRIPTION 

The coordinates of a set of ground control points are determined in 
the two scenes or maps to be registered. If the first scene Is 
Landsat imagery which Is being registered to a map, the nonlinear 
distortions due to Earth rotation and mirror velocity are removed 
from the coordinates. A least squares fit to the transformation poly- 
nomial coefficients is made and the predicted and observed results 
are compared. 

CALLING SEQUENCE 

CALL GCPFIT (GCP, MGCP, MAXDEG) 

where 

GCP is an array of dimensions k by MGCP containing the ground control 
point coordinates, 

MGCP is the number of control points, and 

MAXDEG is the highest degree polynomial obtained (up to degree 5 only). 

INPUT/OUTPUT 
1. INPUT 

In addition to the arguments, the following Landsat parameters 
are input via COMMON block LANDST: 

CCT -logical variable; TRUE if Landsat corrections are to be 
appl ied. 

LLC -line length code (length of raw scan line obtained from 
Landsat computer compatible tape). 

DEGCEN -degrees in latitude at the center of the Landsat scene. 

SAMPOF -samples and lines by which the imagery is offset from the 
LINOFF beginning of the Landsat scene. 

AMPL -amplitude and phase (in pixels) of mirror velocity profile. 
PHASE 
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2. OUTPUT 


Printed output is tables of Landsat corrections, coefficients, and 
error analysis. Coefficients are output via COMMON block LSQCFC. 

V. DESCRIPTION OF SUBROUTINES 

The subroutines called are listed in the following table. 


EXTERNAL LINKAGES 


CALLING PROGRAM 

PROGRAMS CALLED 

GCPFIT 

LSQCF 


EVPOLY 


GCPCOR 

LSQCF 

OLLSQ 

GCPCOR 

DELAY 


MVPOFF 


ERCURV 


Descriptions of the subroutines are given in the following table. 


DESCRIPTION OF SUBROUTINES 


SUBROUTINE 
OR ENTRY 

STORAGE 

(BYTES) 

FUNCTION 

GCPFIT 

2932 

Bias data to zero means, call least 
squares fit routine, perform accuracy 
analysis of fit. 

LSQCF 

21748 

Setup data point arrays and call least 
squares fit routine. 

EVPOLY 

912 

Evaluate a polynomial. 

GCPCOR 

00 

<*\ 

OO 

Correct the GCP's for mirror velocity 
and Earth curvature effects. 

DLLSQ 

3198 

Double precision solution of a system 
of simultaneous linear equations. 

DELAY 

540 

Function which computes rotational and 
sensor delays. 
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REPROMH.TUUTY OF THE 
ORIGINAL PAGE IS POOR 


DESCRIPTION OF SUBROUTINES 


SUBROUTINE 
OR ENTRY 

STORAGE 

(BYTES) 

FUNCTION 

MVPOFF 

37*» 

Function which computes mirror velocity 



correction. 

ERCURV 

578 

Function which computes Earth curvature 



correction. 


VI. PERFORMANCE SPECIFICATION 

1 . STORAGE 

The storage required for the subroutines listed is 31120 bytes. 

2. EXECUTION TIME 

The execution time required to obtain one fit is approximately 
one second. 

VII. METHOD 

The first step is the removal of nonlinear distortions in the Landsat 
coordinates. Earth rotation and sensor delay had been previously 
removed because they produce visible distortions in the imagery. They 
are added back to get the original CCT pixel number and hence the mirror 
velocity and Earth curvature corrections. Thus, the least squares 
fitting to the transformation polynomials is performed in a coordinate 
system from which rotational delay, sensor delay, mirror velocity, and 
Earth curvature distortions have been removed. 

Next, the mean values for each set of coordinates (pixel, line, easting, 
northing) are subtracted. This is to prevent computation errors due to 
the large values of easting and northing. 

The problem is to minimize the Euclidean norm 

||A x - B|| 

where x is the solution matrix of polynomial coefficients, A is the 
input coordinates raised to the appropriate powers, and B is the 
transformed coordinates. For a second degree polynomial, A is of the 
form: 
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GCP(3,1) 

GCP(3,2) 


GCP(M) GCP(3,1) 2 GCP(3,l)GCP(l» t l) GCP(1*,1) 2 \ 
GCP(I»,2) GCP(3,2)2 GCP(3,2)GCP(1»,2) GCP(4,2) 2 \ 


V 


and B is of the form: 

/ GCP (1,1) 
/ GCP ( 1 ,2) 


GCP(2,l)\ 
GCP(2,2) ' 


/ 


/ 


The solution is obtained by the subroutine DLLSQ, which is in the IBM 
Scientific Subroutine Package. 


VIII. COMMENTS 

The routines are dimensioned to aliow a maximum polynomial degree of five. 

IX. TESTS 

The results are identical to those obtained by a solution of the least 
squares normal equations employing partial derivatives with respect to 
the fit coefficients. 

X. LISTINGS 

Listings of the routines except DLLSQ follow. (DLLSQ is a routine in 
the IBM Scientific Subroutine Package.) 
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c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 


c 

c 


c 

c 


SUBROUTINE GCPFIT (GCP, MGCP# FAXOEG) 

TO FIND GEOMETRIC TRANSPORTATION NEEDED FOR GEOGRAPHIC REFERENCING 


OIHEN810N GCP(A.TCCP) 

DOUBLE PRECISION CCEF(*1#R) 

LOGICAL CCT 

INTFGER NYtRM(5)/3,6,10,l?,*l/ 

CPTHON /LANDST/ CCT, LLC, PEOCEN, SAmPDF, LlNCFF, AMPL# PHASE 
COMMON /LSQCFC/ COfP, ISQDEG, IEPl<2)» tOL 
COMMON / MEANS/ 6CPM(<0 


GCP 

1 . 

2 . 

3 . 

<*. 


IS GROUND CONTROL POINT TABLE INPUT BY USER 
PIXEL ftITMlN LINE 
LINE •»! THIN FRAME 
EASTING 

ncrthing 


KWiionuci mniY 

(m GiXAL P A ai ' 


COEF (21, !)• COEFFICIENTS FOR I 


!• 

2 » 

3* 

R» 


PIXEL 

LINE 

casting 

NORIHING 


OP THU 

is poor 


IF (CCT) CALL GCPCCR (GCPi MGCP) 
amgcppmgcp 

RADOEG ■ 160,0/3,141 6R265 
TCL«1,E*20 
DO 1 IM,R 
1 GCPM(I) ■ 0,0 
HRITt (6, ion 
HR I Tt ' j * 1 020) 

COMPUTE SUMS OF INPUT OATA 
DO 10 J«l » MGCP 
DO 5 I ■ 1 » R 

5 GCPM(I) ■ GCPM(I) ♦ GCP ( ! # J ) 

HRITE (6,102) J, ( GCP ( I , J ) , !■!,«) 

10 CONTINUE 

COMPUTE MEANS OF INPUT DATA 
00 11 I • 1 * R 

11 GCPM(I) ■ GCPM(I) / AMGCP 
HRITE (6,10R) GCPM 

SUBTRACT MfANS OF INPUT 0*TA 
"R I Tt (6, 1 0 1R ) 

HRITE (6,1020) 

DO 13 J«1,MGCR 
DO 12 1*1 , R 

12 GCP ( I , J ) ■ GCR(I,J) • GCPM(I) 

HRITE (6,102) J, (OCP(I,J), !■! , <*) 

13 CONTINUE 

FIND POLYNOMIAL FITS FOR DEGREES 1 • INPUT VALUE OF LSQDFG 
00 100 LSQOEGvl ,MA«OEG 
ISTOPsNTERMd SQOEG) 
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IF (ISTOP.OT.WSCP) GO TO 4100 
CALI LSQCF (0, GCP, WGCP) 

WRITE CO, 10 3) LSCPCG,ieRl,((COer<J,I>,l9l,0),J«I,ISTOP) 
<*RITE(*«U1) 

RESPXtO.O 

RE3UT«Q,0 

C 

c pirfcr* accuracy analysis or rit 
oo sos in, roc? 

GP»GCP(1,I) ♦ GCPKl) 

GL«GCP(2,I) ♦ 0CPH(2) 

GE«GCP(J,I) ♦ GCPM3) 

GN«GCP(9,I) ♦ GCP*(9) 

C 

CALL f VP0LV(1 ,GE,GN, ANS) 

OP«GP*AKS 

CALL f VP01Y(2,GE,GN,AN3) 

OL»Gl »ANS 

SG • DP**2 ♦ OL**? 

RF9PX • RESPX ♦ SQ 
XMAG • SCOT (SO) 

XOIR ■ RAOOEG * ATAN2HDU0P) 

C 

CALL EVPOLY(S,GP,GL,ANS) 

oe*ge*ans 

CALL FVPCLY(«,GP,GL,ANS) 

DN *GN« AN S 

SO ■ 0E**2 ♦ 0N«*2 
RESUT • RESUT ♦ S3 
UPAG • SORT (SG) 

UDIR • RAOOEG * ATAN2 (PE » ON ) 

WRIT? (6,109) 1, XMAG, XOIR, OP, OL, UMAG, UOIH, OE, ON 
388 CONTINUE 
C 

AGCP1«NGCP*1 

RE8PX • SORT (HESPX/AGCP1) 

RESUT « SORT (REStlT/AGCPl) 

WRITE (6,390) RfSPX, RESUT 

100 CONTINUE 
LSODEG • RAXOIC 
RETURN 

C 

900 WRITE (6,1100) USGr.EG, ISTOP, WGCP 
LSODEG • LSGCEG - 1 
RETURN 
C 

C FPRWAT STATtWt NTS, 

101 FORMAT ( • 1 « ,20X, 'GROUND CONTROL POINTS'/) 

102 FORWAT (IX, 19, APIS, 3) 

|09 FORHAT (///20X, »Wf ANS OF INPUT DATA A*l » //$X , <|F 1 5 , 3/ 

, 'OTWfSt WEANS ARE FIRST SUBTRACTED 1 ) 

109 FORNAT (lX,I3,2(F10,3,F10,i,8X,2FlO t 3#BX)) 

111 FORWAT (/3SX, 'CCWPARISCN CF OBSERVEO Amj PREDICTED VALUES * / 

,25X, 'LANCSAT' ,50X, « GEOGRAPHIC • / lSX , '§NRUP« ,20X, 'CBS • PRED« ,20X, 
,*ERPOR',20X,«CeS - PREC/5X, 'PAGNITUOfe DIRtCT ION * , 1 OX , • P ERROR 
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•i error* t iox, 'magnitude o mec t xok * # j ox, • f error n error'/) 

10) FORMAT ( • 1 LEAST SCUARfl FIT OR DEGREE' # IS#25X, 'ERROR COOES • 

, 113/3**, 'COEFFICIENTS '/I IX, 'PIXEL M5MLINEM5*, 'EASTING M2*, 

• 'NORTHING '/(IX, 1RQE20 ,A) ) 

1*0 FORMAT C/2(15X,'RM3 ERRC* » • ,E 1 3,6 , 15* ) ) 

1019 FORMAT CM MX'CONTROL POINTS AFTER Si OfRACTlNG RIANS*/) 

1020 FORMAT C?OX, 'LANOfATi ,201, ' GEOGRAPHIC 1 /I OX, 'COORDINATES', IS*, »COOR 
,OINATI$t/» OCR N0,»,7X, 'PIXEL M OF , »L I NE » , 9X, CASTING' , 7 X , «NORThIN 
* 6 ' /) 

1100 FORMAT </20X#'FIT CF DEGREE Ml,' RIOSES' # IS* ' GROUNO CONTROL PC 

• INTS.MS*' MERE SLiRPLIfC,'/) 

ENO 


KITKODinTUlLlTY OK TIIE 
ORIGINAL l’AGi: IS POOtt 
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SUBROUTINE L8QCF (IDEl, GCP, HGCP) 


THIS SUBPOUTIHF CALCULATES TH| LEAST. SQUARES COEFFICIENTS 
FOR THE ei VARIATE POLYNOMIAL 

DIMENSION CCP(«,HCCP) 

OCUBLE PRECISION CCEFC21,4), C0RE(250U), X(45), B(200), AUX(IOO), 
,A(2100), S(4S), XXX* YYY, AMAX, C 
INTEGER NTFRM(55/3,6,tO,lS,2l/ 

INTEGER XP(21)/0,1,0,?,l,O f 3,2,l,0,«,S,2,1 , 0 ,5 ,4 , 3,2, 1 , 0/ 

INTEGER YP (21 )/0, 0,1. 0,1, *,0,1 ,2, 3, 0,1, 2,1, 4, 0,1, 2, 1,4, 5/ 

INTEGER IPIV(50),INOl(2)/l,3/jINO2(2)/3,l/ 

EQUIVALENCE (CORE(1),X(l)), (CORE f 46) , B( 1 ) ) , (CORE (246) ,AUX ( 1 )) , 

, (CORF ( 346), A(U), (CORE (2446) , S ( 1 ) ) 

COHHON /LSGCFC/ COEF, LSGDEG, lEHlC*', TQU 

GCP IS GROUND CONTROL POINT TABLE INPUT BY USER 

1, PIXEL wlTMIN LINE 

2, LINE WITHIN FRAP! 

3, EASTING 

4, northing 

COEF (2 1 , I ) • COEFFICIENTS FOR 1 1- PIXEL 

*• LINE 
3* EASTING 
4* NORTHING 

L«MGCP 
L1«MGCP 

IFiIOK.NE.O) L*^GCP«1 
ISTOP«NTERH(lSQCEG) 

IF (ISTOP.GT.LS RETURN 
C 

00 10 list, 2 
XIHIN01 (II) 

* .i«(II»' )*2+l 
IV1IN02(II) 

NGCPiaO 

c 

DO SO NGCP«i#l t 
IF (NGCPjfcG, IDE'L) GO TO 50 
NGCP 1 aNGCP I ♦ t 
B(NGCPn»GCP(III,NGCP) 

NN«NGCP 1 Wt 

B(NN)«GCP(IIU1,NGCP) 

DO 50 I«i , ISTOP 
xxx«l , 0 D 0 

IF (XP ( I) ,N£,0) XXXcGCP(IV,NGCP)«AXP(I) 

YYY«1 ,000 

IF ( YP ( I ) ,NE , 0 ) YYVsGCP(IV^l,NGCP)**YP(IJ 
K«(i«n*LTNGCPi 
A (K ) ■ XXX * Y Y Y 
50 CONTINUE 

c 

C SCALE THE H A 7 R I X 

DO 70 I*., ISTOP 
AMAx*0, r O 
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c 


DO 60 J»t#t 
C*D AB8 ( A (K ) ) 

60 ANAX«DMAX1 (APAX,C> 

IF C AH AX,EQ, 0 ,00 ) ANAXai.DO REPRODUCIBILITY OF THE 

C 00 TO J*J,t ORIGINAL PAGE IS POOR 

K«(I*t)6l6J 

A(K)«A(K)/AHAX 
70 S(I)«AMAX 

C 

CALL DLL80(A # B,L,IST0P,2,X,IP!V,T0L#IfeR*AUX) 
IER1CII)«IER 
00 80 1*1 » I8T0P 
J« I ♦ I STOP 

cotF(i»iiin«x(i)/s(n 

C0EFC1|I!!IM1»X(J)/S(I> 

80 CONTINUE 

10 CONTINUE 

RETURN 
END 


65 


norn n o o o 


SUBROUTINE FVP01Y C IF UN # X, Y , AN$ ) 

EVALUATE PGL YNOP IAL FIT FUNCTIONS 

OCUBLF PRECISION CCEF(21,4), ANSO, Xp, YO, XXX, WY 
I N T F GF *■* KTERK(S)/5,6, 10, 1*1,21/ 

IKTEGEH XPC ?1 )/0, 1 , 0 . 2, 1 , 0 , 3,2,1 , ft, <1,3, 2 , 1,0,5, 41,3, 2,1 , 0 / 
INTfGtR YP (21 )/0, 0,1, 0,1, 2, 0,1, 2, 3, 0.1, 2, 3, 4, 0,1, 2, 1,0,5/ 
COMMON /LSQCFC/ COEF, ISGOfcG, IF«1(2)» TOl 
COMMON / MfcANS/ GCPM(R) 

COEF (21 , I )• COEFFICIENTS FOR I 1* PlXH 

2* LlNt 
3* EASING 
4* NORTHING 

1 S T 0 p s MERM (ISQDEG) 
an so * o,o 

IF (tFUN.EG.i.OR.TFON^QjO) GC TC 1 

x e * • gcpm(1) 

Y 0 ■ w 5cRM t •< ) 
t;o TO 5 

1 XO * V u GCrr(i) 

TD e Y • GCPM (2) 

5 CONTINUE 

00 10 I*1,15T0P 
XXX a 1,0 

IF (XP(I),Nfc,05 XXX a XO**XP(I) 

YYY a 1,0 

IF (YPCD.NF.O) YYY s VC**VP(I) 

10 ANSO s ANSO ♦ CGEF(!, IFUN)*XXX*YYY 

A N 8 s ANSO ♦ GCPM(IFUN) 

RETURN 

END 
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p. n o o r 


SUBROUTINE 6CPCCK (GCP# MGCP) 


GCPCOR RFMHVFS ► 2 R«0« VELOCITY PRrFllF M ND t'ARTM CURVATURE 
UISTCRTICNS PRJCR TC OBTAINING LEAST SQUARES FITS 


L 

C 

C 

( 

C 


t 

C 


c 

c 


c 

l 


c 


c: 


GOP IS GROUND CONTROL POINT 

1. PI*H -HHIN LINE 

2. L INF I T H I »v FPAMfc 

3. EASTING 
4 • I'.CHTMING 


TABLE INPUT BY USER 

RFPRODUC1BII ATY OF THE 
ORIGINAL PAGE IS POOR 


DIMENSION GCP(a,HGCP) 

Kt Ai *4i MvPOEF 

COMMON /L ANGST/ CCT# LLC # DEGCE N # SAmmQE , LlNCFF# AMPL# 


PHASE 


AOO BACK rHAY TO OFT ORIGINAL CCT PJ*FL NUMHER 
*R I T E ( 6 # 1 (/ 0 J 
00 10 M* CP a 1 # MGCP 

-H T TE <t»,101) bCP(?,NGlP), GCP(l,NGtP) 

L]*F a GCP(?*NGCP) ♦ 0,5 

SA*H s GCP(1*NGCP) ♦ DELAY (LINE ) 

APPLY MIRROR VELOCITY PROFILE CORRECTION 
LEE a m vPOE E ( S AMP ) 

GCP ( 1 # N GCP ) a (,CP(1,NGCP) - OEF 


APPLY EARTH CURVATURE CORRECTICN 
CLKV a ERCl'RV(SAMP-OEE) 
GCPU.NGCP) * GCP(1#NGCP) - CUHV 


S A W P 0 s SAMP 4 SAMPQF 
SHIFT = OFF ♦ CLHV 

f-RlTE (6,10?) SAMP, SAMPO, OEF, CLHV, S" J IFT# GCP(1,NGCP) 
10 CONTINUE 
RF 1 URN 


IPO FORMAT (• 1 » ,?0X, 'GROUND CONTROL PpINT CuRRE C Tl CNS « // 1 9 X , • OF FSF 
.bx, • HR If, INAL ' ,3X, 'CCT SCF-NE ' , 7x , 'MvP ' ,9X, 'CURV * ,«X , ' NE T * , B X , 

, 1 1. U R R , • / 7 X , •RECCHD • , 3 (6X , • SAMPLE «),3(7X,iSHlET')#6X,iOFFSETi/) 

10 1 FORMAT ( t X , ?F 1 ? , 3 ) 

10? FOkmaT ( '♦ < ,?4X,HF 12 t 3) 
t 
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FUNCTION DELAY (LINE) 

COMPUTE ROTATIONAL ANO SENSOR OELAY RELATIVE TC FIRST SNATH 

OEGCEN • LATITUDE AT THE CENTER OF THE LANDSAT SCENE 
PIXPLY • EQUATORIAL EARTH ROTATION PER SNATH IN PIXELS 
UEGPLN • CHANGE IN LATITUDE PER SCAN LINE 
RAODFG • RADIANS PER DEGREE 

SOELAY • SENSOR SAMPLING INTERVAL BETWEEN LINES (2) / TOTAL NUH0FR 
OF DETECTORS (25) 

LINES* • LINE NUMBER IN THE SNATH (1 • 0) 

DIMENSION SDELAY(N) 

INTEGER CCTLIN, ShATH 

logical CCT 

COMMON /LANDST/ CCT, LLC , DFGCfN, SAM»OP# LINCFF, AMPl , PHASE 
DATA PIXDLY, DEGPIN, RAOOEG, SDFLAY /0,6, 0,00071086, 0,01745329, 
,0,0, 0 , 08 , 0,16, 0.24, 0,32, 0,40/ 

IF (CCT) GO TO 10 
DEL AY*0,0 
RETURN 
C 

10 CONTINUE 

CCTLIN » LINE ♦ LINOFF 

DEGI AT 3 DEGCEN ♦ ( 1 1 70 ,5-CCTL IN ) * Ptf.FLN 
ROLL AY » PIXDLY * COS (DEGLATaRADDEG) 

$»ATh s (CCTLIN. l)/6 , 1 

LINES* » M0D(CCTLI^«1 ,6) ♦ 1 

OEl.AY ■ R0E.LAY*(3NATH*1) • SOELAY (LINES 1 ') 

RETURN 

F.ND 
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REAL FUNCTION MVPOFF (PS) 

COMPUTE MIRROR VELCCITV PROFILE OFFSET 


LLC • NUMBER OF PIXELS IN THE RA* SCA* LINE 

SAMpop - number OF pixels skippeo in the lanosat SCENE 

AMPL, PHASE • AMPLITUDE, PHASE OF MlRROH VELOCITY PROFILE CURVE 


C 


C 


LOGICAL CCT 

COMMON /LANDST/ CCT, LLC# 


DEGCEN# 3AMP0F, LlNCFF, AHPL# PHASE 


IF (CCT) GO TO 12 
MVPOFF « 0,0 
RETURN 

12 CONTINUE 

PS1 • PS ♦ SAMPCP 
MVPOFF » AMPL * SIN 
RETURN 
END 


KKPIIODUCIBIUTY OF THF 
ORIGINAL PAG/i IS Poor ^ 


(6,2831653 * (PSl ♦PMASfc«l ,0 ) / (LLC**!)) 


69 


non o 


FUNCTION ERCURV (PS) 


CCHPUTE EARTH CURVATURE CORRECTION 

RE , RS AT • EARTH RAOIUS, SATELLITE OPblT RAOlUS 
TFOV • TOTAL FIELD OF VIE* OF THE SCANNER (11,56 DECREES) 

ILC • NUMBER OF PIXELS IN THE RAN SCAN LINE 
SANPOE • NUHBFR OF PIXELS SKIPPED IN THE LANDSAT SCENE 

logical cct 

COMMON /LANOST/ CCT, LLC, DEGCEN, SAm»OF, LlNCFF, AMPL# PHASE 
DATA Rf , RSAT, TFOV /6367.R, 7285,6# 0,20176/ 

IE (CCT) GO TO 10 
ERCURV a 0,0 
WE TURN 

CO M PUTE SCANNER ANGLE AT PIXEL NO, PS AnO ANGLE SUBTENDEO AT 
THE CENTER OF THE EARTH 
10 CONTINUE 

TFUV2 « TFOV/2,0 
PS1 • PS ♦ sahpce 

ANGSCN a (PS1-1,0)*TF0V/(LLC*1) • TFOV? 

ANGEPT a ARSIN(SIN(ANGSCN)*RSAT/RF) • ANGSCN 
TOTERT a ARSIN ( SIN ( TFC V2 ) *RSAT/RE ) • TF0V2 

C FIND SCANNER ANGLE BASED ON FRACTION UF TOTAL ARC ON THE EARTH'S 
C SURFACE ANO CONVERT TO PIXEL MMBER 

ANGSC1 a TFOV? * ANGfcRT / TOTERT 
PS2 a 1,0 ♦ (ANGSCUTFCV2) * (LLC»l ) / TFOV 
ERCURV a PS1 • PS2 
RETURN 
fc N 0 
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REGISTRATION - 1 
GENERATION OF MAPPING GRID 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 

II. DESCRIPTION 

The process of geometric correction requires the computation of Image 
(input) pixel coordinates at each map (output) coordinate by means of 
a mapping function (generally a low order polynomial). However, the 
evaluation of a nearly linear function at large numbers of map points is 
not necessary or practical. The computation required is greatly reduced 
by evaluating the function at each mesh point in a coarse grid covering 
the image area. GRIDMP computes the UTM and Image coordinates at a 
specified number of mesh points covering the image. The corrections 
for the Landsat scanner mirror velocity profile and earth curvature are 
added to the image coordinates. (These corrections had been removed to 
reduce nonlinearity in the mapping functions.) The accuracy of 
interpolation within the grid ceils is checked at the center of each 
cell by comparison with the actual mapping function value. If the 
error is large, a finer grid or lower order polynomial should be used. 
GRIDMP also computes the number of lines and samples in the geometrically 
corrected image. 

III. CALLING SEQUENCE 
CALL GRIDMP (MAPSET) 
where 

MAPSET is a LOGICAL variable. If it is TRUE, the output map coordinates 
are specified, if FALSE, GRIDMP computes the output image size which 
includes all of the image after registration. 

IV. INPUT/OUTPUT 
1. INPUT 

Common block MAPDAT includes STRTNO, STOPNO, STRTEA, and STOPEA which 
are the starting and stopping Easting and Northing coordinates of 
the output. 


I. NAME 
GRIDMP 
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Common block PIXDAT contains: 

NLINPX, NPiXLN - tines and pixels per line of the input image. 
NHGL, NVGL - number of horizontal and vertical grid lines. 

SRATE - sampling rate (distance between pixels) in the output 
map. 

NLPI, NSPL - lines and samples in the output image (output of 
GRIDMP). 

KDUM - value to which boundary pixels in the output map are set. 
INTERP - interpolation method flag where 1 « nearest neighbor, 

2 = bilinear, and 3 = bicubic. 

NB - number of bands of data to be interpolated. 


2. OUTPUT 

Printed output is image and map coordinates at the mesh points, 
sample and easting values of the first and last points in each 
grid cell, interpolation errors at the grid cell centers, and the 
output image size. 


V. DESCRIPTION OF SUBROUTINES 

Description of the subroutines are given in the following table. 


SUBROUTINE 

LENGTH 

(BYTES) 

FUNCTION 

GRIDMP 

3988 

Compute image and map coordinates at 
the mesh points of a coarse grid, 
and compute errors where interpolating 
image coordinates between mesh points. 

EVPOLY 

912 

Evaluate a polynomial given its order 
and coefficients. 

DELAY 

540 

Compute Earth rotation and sensor 
delay for a given scan line. 

MVPOFF 

374 

Functions to compu^ mirror velocity 

MVPINV 

374 

profile offset anci its inverse. 

ERCURV 

578 

Functions to compute Earth curvature 

ERCURI 

734 

correction and its inverse. 
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VI. 


PERFORMANCE SPECIFICATIONS 


The time required to execute the routine is four milliseconds per cell. 

VII. METHOD 

GRIDMP computes the ranges of easting and northing occupied by the 
image. Using the specified number of grid lines and output pixel 
spacings, the grid spacings In meters and the output Image size In 
pixels are computed. The coordinates at the mesh points are deter* 
mined by stepping through the UTM grid and transforming to image 
coordinates using EVPOLY. Since the mapping functions were deter* 
mined after removing mirror velocity and earth curvature offsets, 
the inverse offsets must be added to the grid coordinates to obtain 
the original input image coordinates. In other words, the mirror 
velocity and earth curvature corrections are applied at the grid 
points and interpolated linearly between grid points, as are the 
mapping functions. The image coordinates at the center of each grid 
cell are calculated by interpolation from the mesh points and by 
polynomial evaluation In order to determine the errors Introduced by 
the interpolation. A table of output sample numbers and eastings 
for the first and last points in each grid ceil is generated for 
later use in resampling over the cells. 

VIII. COMMENTS 
None. 

IX. TESTS 

A sample printout of grid point coordinates follows. 

X. LISTING 
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sample 

-4*378 

144*349 

293*075 

441.8C2 

590*541 

739.267 

887*994 

1036*721 

1185*459 

1334.186 

1462*913 

1631*651 

1780*376 

1929.105 

2077.831 

-3.609 
145*117 
293. 044 
442*571 
591.309 
740.036 
880*762 
1037*469 
1186*220 
1334.954 
1483*681 
1632.420 
1761*146 
1924.873 
2078.600 

- 2*861 
145.685 
294.612 
443. 3J9 
592.377 
740.804 
889,631 
1038*267 
1106*996 
1335.723 
1 4£4 • 449 
16 33. 108 
1781*915 
1930.641 
2079. 368 

-2.C 73 
l 46 . o 5 4 
246. 3b0 
444. 167 
592*046 
741.972 
890.244 
10 34,025 
1107. 764 
1336.441 


Figure 8 


Wa::8tfU98.S8l8.l8!S!USaSi 


LINE 


EASTING 

NORTHING 

27*314 


359*500 

3421*500 

27*143 


362*536 

3421*500 

26*973 


365*571 

3421*500 

26*802 


368*607 

3421*500 

26*632 


371*643 

3421*500 " 

26*461 


374.678 

3421.500 

26*291 


377.714 

3421*500 

26*120 


380. 7*0 

3421*590 

25.950 


383*786 

3421*500 

25.779 


386*821 

3421*500 

25.639 


389.857 

3421*500 

25.438 


392.893 

3421*500 

25*26$ 


395*928 

3421*500 

25.097 


398.964 

3421*500 

24.927 


402.000 

3421.500 

163*586 


359.500 

3418*741 

163*416 


362*536 

3418*741 

163*245 


365.571 

3418.741 

163.075 


368.607 

3418.741 

162.904 


3/1*643 

34 18*741 

162* 733 


374*678 

3418.741 

162*563 


377.714 

3418.741 

162*392 


380* 750 

3418*741 

162*222 


383*786 

3618,741 

162.051 


386*821 

3610.741 

161*881 


309*857 

3418.741 

161.710 


392.893 

3618.741 

161.540 


395.92b 

3416.741 

161*369 


398.964 

3418. 741 

161*199 


402*000 

3418.741 

299,846 


359*500 

3415.983 

299.676 


362*536 

3415.903 

299.505 


365.571 

3615.983 

299.334 


368*607 

3415.9**3 

299.164 


371.643 

3415.983 

248.993 


3 74* 6 78 

3415. 983 

290.823 


377.714 

3415.983 

290.652 


380. 750 

3415.983 

298*402 


383.766 

3415.983 

290. U1 


386*02 l 

3415.983 

298.141 


389.857 

3415.983 

297*970 


392*893 

3415.983 

297*800 


395.928 

3415.483 

297.029 


398.964 

3415.903 

297.459 


402.000 

3415.983 

436*106 


359. 5C0 

3413.224 

435*936 


362.536 

3413.224 

434. 765 


365.5/1 

3*1 3.224 

435.594 


368. 6U7 

3413.224 

434.424 


371.643 

3413.224 

434.251 


3 / 4.678 

3413.224 

4 *4.083 


3//. 714 

1 3. 224 

4 14.912 


380.750 

34 1 3.224 

4 14. 742 


383. 786 

3413.224 

434* 571 


386.821 

3413.224 


Sample Printout of Grid Point Coordinates 
in the Landsat and UTM Systems 




SLHHUIjTINC GPinMP (MAPSET) 


c 

C 

c 

c 

c 

c 

( 

c 


c 

t 


c 

( 


c 

c 


r.mnMM COMPUTES THF INTERPOLATION GHji; I N TERSE CT IO*S AND THE 
IMEHPCI ATICn EHPCPS IN I PAGE P I KFt LOCATIONS 

Alln*AN(.E IS ** A (• t F CM THE STARTING NCM^ING VALUE CHEATER THAN 
TPF STOPPING vAiot (AS IN THE LTM SYS1EM 

UNIT, TS Crf-HOTNATCS (UTh A PIXEL) OP HORIZONTAL » VERTICAL G«I0 
INTERSECTIONS 


OW.NSIPN GRICEn (?, TO) , GRIOSL (2# 30 # ju ) # NU*PXC(SO)# CPXVAL ( 30 ) # 
.NiiUNCriO)* ERRCEL (?R) 

LCGILAIM CELLCGtZV,#?*)) 

PFAL*'4 NVpnFF, HVPINV, MVP, NORTH, NJ.LN 
LOGICAL HAHSET 

CGf-HON /PIXOAT/ M.TnRX, NPIXL*# NHGL, N v GL# SRATE, NLPI# NSPL# 

, kDlh, INTEHP, N0 

C.r-NON /NAPUAT/ STRTNO# STOPNO# STRTEA# stppea 
tr**CN / C.RIC/ GRIHEN# GRIOSL# nL'MPxC # CPXVAL# NUMLNC# CELLCG 


CCf'Pt TE UTH COOKOIkATES at IHAGF CORNERS 
JF (MAPSKT) GO TO VCO 
F t J N. P X * N| TnPx 
f PI AlS»NPTXl.N 
rvp s HVPIFFU.O) 

(Pv s E HCUHV ( 1 ,u»MVP) 

PS s 1,0 - OEIAY(l) • HVP • CR V 
CALI. EvPClY (i, PS, 1 , 0 , At) 

LAU EvPCLY (<4# PS, 1,0# AN) 

PS * 1,0 - OFLAV(MlNPX) - H VP • CHV 
CAIL f VPrj. y (J, PS, ELINPX, CE) 

CAu E VP(.| V («, PS, FL 1 NPX , CN) 

WP c HVPCFF (EPIXLK) 

CHV 3 ERUIPV(FPIXLN-MVP) 
ps « fpixin - rciAY(i) - PVP - cRv 
CAU. F VPCL V li, PS, 1,0, BE) 

CALL tvPCl* 

PS s FPIXIN • PFlAVCM INPX) • HVP • c*v 
CAU EvPCL> 

C.alL F yPOi Y 
JF (AN, l I • (. N ) STMTNO 
IF (AN.Gf.fN) SThTnC 


REPRODUCIBILITY OF THE 
ORIGINAL PAGIS IS POOR 


(44, PS, 1,0, BN) 

• PFLAY (KL INPX ) • MVP 
(i# PS, FLINPX, OF) 

(«, PS, FLINPX# ON) 

* ARjNl (AN# HN ) 
3 A P A X 1 (As# Hn) 


JF (An.LT.CN) STPPnC * APAXJ (CN# 
IF (A#,GT.CF) STPPNC « AMIM (CN# 
S T h T h A 3 AM M (At, LF) 

S T OPF A s A n A x 1 (HE# OE ) 


OF ) 
UN ) 


L OF'Pt'TE GX ANO GY C.HIO SPACING AM, UMPjT IMAGE SUE 
POO nm;l 1*nPGL»1 
*■> v (, |. j sn voi -1 

M s (STLPE A-STPTF.A) / NVGLt 

(, Y s (JjTCPf.C-STNTFC) / NHGL 1 

•jSPI * (ST0PEA-STPTEA4SNATE) t SPATE ♦ 0*5 

MlPl * ( APS (STOpNr.»STPTNC) ♦SPATE ) / S*AIE ♦ 0,5 


CALCULATE (,wir. TNTFN SECTIONS by STEPPING THHOL'GP UTH GPIO ANC 
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C TRANSFORMING to IMAGE (PIXEL) COORDINATES 
DU 1010 1*1 , N VGL 
EAST * STPTEA ♦ (I«1)*GX 
GRIDEMl,!) • EAST 
OC 1000 Jal'NHGl 
NliPTH « STHTNC ♦ ( J»i )*GY 
GR IDEN (2# J ) * NORTH 
CAll EVPOLY (1# EAST , NORTH, P8) 

CALL CVPLLV (it, EAST, NORTH, PL) 

C 

C AOO INVERSES OF MIRROR VELOCITY PNOULE ANO EARTH CURVATURE 

C CORRECTIONS to get RAN pixel COCRUINATES at grid points 

LINE a PL ♦ S!GMO,b,PL) 

PSCCT a FS ♦ DtLAY(LlNF) 
mvP a HVPJNV (PSCCT ) 

CHV • ERCUHI (PSCCT4RVP) 

PS » PS ♦ MVP ♦ CRV 
GR IDSL ( 1 , J , I ) * PS 
GRICSl(2,J,I) * PL 

1000 CONTINUE 

1010 CONTINUE 

► RITE <6,IObO) 

00 1011 J*1,NHGL 

1011 ►RITE (6,10bl) (GRIDSL(1,J,K), GH IDSL 12 • J , * ) , GRI0EN ( l , K ) , 
,GNID£M2,J), K«1,NVGL) 

L 

C COMPUTE FINAL GRIO ERRORS 

►RITE (6,106b) 

EPRMAXaO, 

DP 1030 1«*2,NHGL 
1«1*]«-1 

DC 1020 v‘«*2,NVGL 
JR1*J«-1 
C 

f. CCPPUTt PIXEL CCOHCINATES 8Y BILJnF AR INTERPOLATION IN A CELL 

PSb > rGNIUSL(t,l4,JR)NGRICSL(1fIRl«J«)aGRXDSL(l,XRlf J41) 

. ♦GHlDSLd #1«,J«1)) / «,0 

Pic a (GNinSl (?,!«, J4)aGRID3L(2,!M*J6)aGR!08L(2f!«lfJ4il) 

. ♦GR10SL(2,!R,J41)) / R,0 

C 

C COMPUTE CENTER EASTING AND NORTHING 

FCEN a {GRlDeN(l,J<O4GRl0EN(l,J«in / 2,0 
NCfN a (GRICEM2 ,T<J)aGRIDEN(2,IR1)) / 2,0 
C 

C COPUTE PIXEL COORDINATES BY EUNCUUN 

CALL FvPUV (1, ECEN, NCEN , PS) 

CAIL EVPriY (2, ECEN, NCEN, PL) 

C 

C ADI INVERSES CE R I RRC® VELOCITY PROFILE AND EARTH CURVATURE 

C CORRECTIONS TO GRID PC I NTS 

LINE a PL ♦ SlGNlO,b,PL) 

PSLCI a R S ♦ GtL AV (LINE ) 

MVP a PVP JNV (PSCCT ) 

C R V a ERCURI (PSCCT4RVP) 

PS a PS t RVP ♦ CRV 
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c 


c 


I 

1030 


c 

c 

c 


1 v3H 
1 >3^ 


l 


1 naS 


ccfPon tRwcw 

t KHsSQMT ( (PSb«PS)KA2A(PLB«PL)***) 

kWwrkL(J«l) * kRH 

kRKWAX « AMAX1 (kRRPAX, tRfi) 

CCMlKut 

*Hlft (ft, 1070 ) (kKWCkL(J), Jll,KVbtn 

COKTlM'fc 

«RIlk ( 6 , 1 Oft 0 ) EWWWAX 


rr^PnTt TAHU3 CP FIRST OUTPUT $ApPLf MAHERS ANO COORDINATES AKO 

liUlPuT LIFT MjPBkHS IK MCH CEIL 

Mi^PXCU) * 1 

CPxvAL(l) * GPICEN(l,n 

'-LM.KCU) * 1 

I'O J 0 5ft JslfKVUll 

"PXC ( J) * (r,PmMl,J)«GRIDEMt,l)fSRATn/SRATE ♦ 1,0 
CPXVAUJ) • OlCPMl,!) ♦ (NUPPXC(J)-t )*SRA?E 
•j C 1 039 J*2,kh&L1 

NifPlKCrJ) • c AHS(GM0kK (i, J )*GW I (Jk K (2 * 1 ) )*SRATE )/SKATt ♦ 1,0 
M-*PXL(KVGL) » KSPL ♦ 1 
Mj^LNC (KHbl ) • KlPJ ♦ 1 

-KITt (ft,)Ob<») 

l.’O 10<4b J* 1 , P9 

IF (J,U .KHGl l.rw.J.Lk ,KVGL1) KRIU (t,lQb«> J 
IF (J.U.KvCll) »«m (ft , 1 Obb ) KUwPXClJ), CPXVAL(J) 

IF (J,Lf,KH*U) *W I T k (ft, 105ft) KUPLKCCJ) 

*«iTk (ft , 1 ub3 ) SWA TF , MPI, KSPL 

hfc I (jOK 


c 

1 obO FilNPAT ( ' 1 ', 30 X, •IkUHPCLATIOK GhID I -Tt PSECT ICKS • / 3 1 X , 32 ( » * • ) // 

, l'i> # 'SAPPtk * , 1KX, M iKk «, 13 X, 'tASTlKGt , UX, •NORTHING' ) 

1 us 1 MjknaI (/(«F 2 U, 3 n 

10 S2 FTKMAT ( • 1 */30X, • GMI» Ck LI STAHTUG PU ] K Tb '/ 30 X , 25 (••')// 1 0 X C . LL 
, M . • ,SX, «SA*Plk ^C, ' ,bX, 'COORC, VALUk ' »bx, 'LIKE NO,'/) 

10 S 1 K h w 4 T •///?!«, 'f'l.TPl.T PIXEL SPACING «»#F 7 , 3 ,» UK ITS • /? I X , « CL TPU T 
. I *• F G F Sl/k * • , lb, ' LIKES 6T',IS,* SAFES') 

1 i b« M NfM ( I lb ) 

1 OSS K.WfaI ( 1Vj,F1M,3) 

1 I'Sb H P k A 1 ( ' ♦ • , 1 ftp ) 

1 no;) FCW-AI i//?\ x, "'AXIHj* GKIO ERROR ■',lPtlft,2,' PIXELS') 
toftb m.kvat ( « 1 • ,<*oX, '•'AGMTUOE OF IK TpsPrLA ! IOK ERROR AT GRID CKl CL k 
,T tHSt/<?U,S3( •* • )) 

U'7'T FGffaT (/(lPlof 9,2) ) 


k. K tJ 
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REGISTRATION - 2 

PARTITIONING OF LARGE IMAGES BY CELLS 


I. - NAME 

CELLMP 

II. DESCRIPTION 

When generating an output line of geometrically corrected Imagery, 
the Input data required will generally be drawn from several scan 
lines. Thus, a block of input data must be held in core. If the 
input scan lines are long, very large amounts of core are required, 
and the Image may require segmenting. CELLMP segments the image on 
the basis of the grid cells produced by GRIDMP. 

III. CALLING SEQUENCE 
CALL CELLMP (CORE) 

where CORE is an integer variable specifying the amount of core 
available for the input data block. 

IV. INPUT/OUTPUT 

The printed output is a matrix showing the segment number in which each 
grid cell is completed. Ceils not requiring input data are indicated 

by 

V. DESCRIPTION OF SUBROUTINES 

CELLMP calls the function DELAY. 

VI. PERFORMANCE SPECIFICATION 

The subroutine requires 2716 bytes of storage. For an image requiring 
four segments, the partitioning information is computed in approximately 
one second. 

VII. METHOD 

For each row of grid celts, CELLMP computes the range of input 
coordinates required for including successive cells along the row, as 
illustrated in the following Figure. 
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The dotted lines Indicate the extents of the Input data required 
for 1, 2, and 3 cells in the row. The actual input coordinates 
at the cell corners are adjusted to allow for the following factors: 

o bicubic interpolation requires +2 and -*1 additional neighboring 
samples, 

o earth rotation and sensor delay shift the sample numbers in each 
line, and 

o one additional sample (±1) to allow for delay shifts in lines 
adjacent to the cell corners. 

For all rows of cells, a common number of input samples per line is 
determined in order to define the input image block. Using this 
information, the program again loops over the rows of cells and finds 
the starting input rows and columns and number of rows and columns 
in each input data segment. 

VIII. COMMENTS 
None. 

IX. TESTS 

The routine has been tested by printing the Input data ranges for the 
cells and comparing with the cell coordinates produced by GRIDMP. 

X. LISTING 

The listing follows. 
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; S»;hi*Ct,n*'fc LfeLlPP (CORE) 

*Cr*Fl Tk DIMENSIONS OF INPUT ARRAY NMlC* C** BE PEIO IN CORE AT A 
t i HP A\c *li*tfcR OF PARTITIONS MECUlRLO* 

h* am: hc* var tables have oirectjo k s appfndec# f*6* pi**" is 

NCNTh^tST Cl)P\k* cmi OF A Cfctt 

INTEGER RO***# HXNW* RONKE# PIXNK# Rt ! *SF« PIXSE# ROwS*» PJXSN# 
,Rn, «$, 3*, Sk, «t. «2# SI# S2# CORK, R5TRT 

CI^nSTOn GRinEN(2,30), GRIOSL (2#30#3M# MJNPXCC30)# CPXVAL(3Q)« 

•^LMLNCC 10) 

l<h;ical«i cm-lcg (2R# 2R ) 

C0M»C» /P1X0AT/ WLINPX# NPIXLN# NpGL# NvGt* SPATE# NLP!# NSPL# 

* KOLH, JNTRP# NB 

CO^C* / GRIT/ LRIOFN# GRIOSL# NLRPXC# CPXVAL# NUHLNC# CELLC6 

LO^MC* /St t NT/ nCGP, M*SAH(tO), nBLIMIO)# NSTRT(IO)# 

, WSTRT (2R# 1 0) 

I* IT T al I/E Ckl.l COLUMN GROUP INDICATO* (CELLCG) 

NNCill * NHGL • 1 
'• Vl»L I * NwGL * 1 
<:C lion 1*1# NhGL T 
IKK' ttl.LCG(J#T) * 222 

NIhH (CUP# THE MiHHfR OF COLUMN GROUPS* 

SI IS ETRST INPUT PjXkl. FOR THIS COLUMN GROUP 
NCGP s o 
S 1 * J 


ST AN f A *> E * COLUMN GROUP OR SEGMENT 
IH H. VG^TlMk 

»CGP * 1‘CGP + 1 
“ T *'\C * 1 000000 


LOi'P rvki CF LI « 0 N 5 
oC 20! 0 l*l#NHGLJ 
k i s tr oonoO 
•>2 s o 
8 / 5 i 1 


<*p 25L p ** is 
"XHVlAUn 


MM' riNST CEIL IN THE PC" AVAILABLE FQR THIS COLL'HN GROUP AND 
3 T Ai> J THK iCGP THE«k (CELL IC1) 
t)H 2iMi i iClst f nVGLI 

I y KtLtC&(I#ICl).EG,222> GC TO 2002 

2>h; 1 LJMlMJt 

GO To 20 JO 

y ] vO HAf Gk CF IMAGE COORDINATES REQUIRED FOR THE OUTPUT CELL 

Im; JsTt 1 #NV6UT 

NI*ma e GR ICSl. (2# T # J) • 1,0 

PJXN* s GRICSl L I » I # J ) 4 DfcLAV (RCNMn 1 • 2,0 

MUM 8 GHICSL (2# I # J4 1 ) • 1,0 

H/1-k 3 GWinSl (1 » I # J4l) ♦ CELAY(RUW*k) ♦ 3,0 

h(-Sf s GW1GSL (2, Ifl#j4l J 4 2,0 

M)isl 8 GRlCSUl#l4l,j4l) 4 CELAVIRCWSE) 4 3,0 


n n n no c* on r n r o 




ROS* c GHID8L<2#UI*J) ♦ 2,0 

Pits * s GRICSKlfltl* J) ♦ OELAY(RUWSh) • 2,0 

RN s MXO ( ^ I K 0 (RCKNW#RONNE ) * 1 ) 

R8 a MM) (maxo<RO*8K*RO*SE), NLJNPA) 

9* s MXO CMN 0 (PIXNK,PIXSN)# 1 ) 

SE 8 MNo (MAXO(PIXN|,PIXSE)* NPXXtN) 

C 

c check for if age coordinates outside the input image 

IF («K,GT,NLlNPX i CR,R 8 ,LT.r f 0 R, 8 N,Gt,NPlXtN, 0 R,SE,UT,l) 
. GC 10 1020 


find RANGE OF IMAGE COORDINATES FOR THIS ROM OF CELLS AN0 
FIND NO, CF OUTPUT CELLS THAT CAN BE FILLED GIVEN CORE LIMIT 
HI s MNO (Rl, RN) 

H2 8 MAXO (R2# RS) 

S3 8 MAXO (82* St) 

NR s R2 • R1 ♦ 1 
NC s 52 * 81 ♦ 1 
IF (NR*NC,Lfc.CORE) GO TO 2005 


1R20 


CORF REQUIRED EXCEEDS THAT AVAILABLE 
GO 10 NEXT HCN OF CELLS 
MNNC 3 MNO (NCSAVE* HINNC ) 

CELLCG( I * J ) s 255 

GU if 2010 REPRODUCIBILITY OF THE 

ORIGINAL PAGE IS POOR 

CFLICG(I,J) s o 
GC TO 2000 


CORF IS AVAILABLE, SAVE REQUIRED DIMENSIONS, 

2005 NCSAVE a NC 

CtLLCG(l#J) 8 222 
2000 CONTINUE ’’ 

2010 CONTINUE 


LASTRX s SI ♦ MINNC • 1 

IF (L ASTPX.LT, NPIXLN) GO TO 2100 
LASTPx 8 npixln 
MNNC * NPIXLN • 31 ♦ 1 
2100 CONTINUE 


*0* USE MjKrtEH CF INPUT COLUMNS AVAILABLE TO SET CELL SEGMENT 
C tNMCATnHS AND TP FIND RC* AND COLUMN INFORMATION 

*1 1 N S 1 s t oooooo 
c 

C LOOP OVER CELL HONS 

•>0 2150 Isi # NMGLl 
1 01 s 100 
IC2 s U 

RSTHT ( l,NCGP) « 0 
C 


Dl 2130 Jsl.NVGLl 

r 

C CM-C* WHETMEH the CELL REGUIRFS INRuT OUTSIDE OF THE IMAGE 

IF (CFLLCG(T.J),EQ,0) GO TC 2126 


81 


- tr 

t 

c 

x 


c 

c 

2125 


C 

C 


c 

c 


c 

2120 

2130 

C 

C 

2140 


C 

C 


C 

C 

2150 

C 

C 


C 


JUMP OUT IP THt CELL REQUIRES TOO MUCH CORE , 

IP (CELLC 6 (i»JS«E 0 t aS«) 00 TO 

IP THE CELL USES SHOUT DATA# CHECH FOR THE LAST PIXEL 
IP (CELLCGCI# J),EQ* 222 ) 00 TO 1100 
60 TO 2130 

JUMP OUT IP THE CELL REQUIRES SAMPLES PAST LASTPX* 

RG*NE a GR108LC2»t»J*l) • 1,0 

PUNE a GRI08L(1#1# J*l) ♦ OELAV(ROWNE) ♦ 3*0 

RGMSE a GR108LC2,Wt»J*U ♦ 2*0 

PUSE a GRICSLtl,Nl,J#l) ♦ OELAVCRQNSB) ♦ 3*0 

8E * H1N0 (MAX0(PtXNE#PIX8E)» NPULN) 

IP C3E.GT, LASTPX) 60 TO 21«0 

PINO FIRST AND LAST CELLS THAT USE INPUT CATA 
IC1 • mino (J, ICt) 
tC2 a MAXO (J# 1C2) 

ELSE SET COLUMN 6R0UP INOICATOR TO OROUP NUMBER, 
CELLCGCI » J) ■ KC6P 
60 TO 2130 

CELLCGCUJ) a NC6P ♦ 100 
CONTINUE 

PINO FIRST INPUT RON FOR THIS RON OF CELLS 

IF ( IC2*EQ«0) GO TO 2150 

RO^NN a GRICSLC2* 1# IC1 ) • 1,0 

RQhNE a GR1C8L(2*1#IC241) • 1,0 

RN 8 HAXO (NINO(PONKN*RONNC), 1) 

RSTRT ( 1 #NCCP ) a RN 

FIND STARTING INPUT COLUMN FOR NfXT SEGMENT 
IF (J.EQ.NVGL) GO TO 2150 
NEXTCL a IC2 ♦ 1 

RO»N» a GRI0SU2, 1 , NEXTCL) • 1*0 

PUN* s GRIDSL ( l > I * NEXTCL) ♦ OELAY(HONNW) • 2,0 

RC*S* s GR IDSL (2# 1*1 * NEXTCL) ♦ 2,0 

PIXSK s GRID SKI# !♦!# NEXTCL) ♦ DELAV(RONSW) • 2*0 

S* s KAXO (NIN0(PUNN*PIX8N)* 1) 

MINS1 8 KINO C8M» KIN81) 

SET INDICATOR FOR STARTING CELL I* NEXT SEGMENT 
CELLCGCI, NEXTCL) > 222 
CONTINUE 

SET PARAKETERS CP INPUT OATA SEGMENT 
MAXNR s kino (CORE/MINKC* NLUPX) 

NBSAK(NCGP) * MlNNC 
NBUN(NCGP) 8 MAXNH 
NSTRT(NCGP) s SI 
SI * KINS1 
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C IF All ecus KOT DONE* START A NCR SEGMENT 
IF (lA8TPX«t.T a M»tXU) 60 TO ISOO 

WRITE (6* 100) 

- — GO MR# sn»M«6i» 
mo to* tot ) <ceucG<i,j), j*wmvgu> 

RETOOK 

c 

too FORMAT (///Sx« 'COLUMN GROUP NUMBERS FOR THE GRtO CELLS'/SX* 

•iOC'Ai)/) 

101 FORMAT (29(1X,!2)) 

FRO 


SSKsr 




REGISTRATION - 3 

PERFORM DATA HANDLING AND INTERPOLATION 


NAME 

RECfFI 

* 

DESCRIPTION 

This routine controls the reading of the Input data, finds the 
equations for linear interpolation of the mapping functions within the 
cells, calls the interpolation routine, and assembles the segments of 
the output image if segmenting was required. 

CALLING SEQUENCE 

Call RECTFI (INFIX, PIXEL, PIXOUT) 
where 

INFIX Is a buffer array for reading input scan lines, 

PIXEL is the array for holding the input data segment, and 
PIXOUT is the output buffer array. 

INPUT/OUTPUT 

1 . INPUT 

The input is a sequential data set on unit 10. 

2. OUTPUT 

The output is a sequential data set on unit 11. 

3. FILE STORAGE 

The output segments are written on sequential data sets having 
unit numbers 21, 22, 23 ... (20 number of segments). 

DESCRIPTION OF SUBROUTINES 

The subroutines required are listed in the following table. 
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DESCRIPTION OF SUBROUTINES 


SUBROUTINE 
OR ENTRY 

LENGtU 

(BYTES) 

FUNCTION 

RECTFI 

3*9* 

Read and write data, compute poly- 
nominal Interpolation functions, 
call data interpolation routine. 

L0ADLN 

*036 

Load input Image data into array. 
Set up pointer array to location 
of lines In the data block. 

RESAMP 

266* 

Apply Earth rotation and sensor 
delay corrections. Compute 
interpolated data values. 

REA0AR 

WRITAR 

*7*’ 

Read and write arrays of specified 
length in sequential unformatted 
flies. 


VI. PERFORMANCE SPECIFICATION 

1. STORAGE 

The storage requirement Is primarily dictated by the arrays 
which are arguments to RECTFI. In addition, RECTFI uses common 
blocks of the following lengths In bytes: 

PIXDAT - 40 

GRID - 8461 

SEGMNT - 1284 

PIXIN - 2032 

TRANS - 24 

2. EXECUTION TIME 

The processing speed is highly dependent on the interpolation 
method. Using four band Landsat data, the speeds are: 

Nearest Neighbor 2350 Pixels/Second 

Bilinear 1100 Pixels/Second 

Bicubic 450 Pixels/Second 


HE 


poor 


VII. METHOD 

For each segment and each r oh of grid cells, subroutine L0ADLN is 
called to load the required Input data into array PIXEL. For each 
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cell In a row, the Input Image coordinates at the cell corners are 
obtained from the common block GRID (computed by GRIDMP). The 
Intersections of the output line with the cell edges are computed and 
from this the linear equation for the Input coordinates within the 
cell. The resampling routine Is then called and the output line (or 
line segment) Is written out. If the Image was segmented, the 
segments are read, assembled, and written out. 

VIII. COMMENTS 

The routines GRIDMP, CELLMP, and RECTFI are all required for 
registration but were treated separately because It Is useful to 
call them separately In designing computer runs. GRIDMP determines 
the size of the output Image for a given tranformation and sampling 
rate; CELLMP determines the number of partitions required for a given 
core availability. 

IX. TESTS 

The program was tested by examining the registration of small test 
areas. 



X. LISTINGS 

Listings of the subroutines follow. 


A 




4 

ji. 
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SUHROCUnE KECTFI (INPIX* PIXEL* PXXOUT) 

•call resampling routine to confute Inrut pixel locations and 

PPRPORM SPECIF ICO INTERPOLATION METHOD, 

•READ LINf. SEGMENTS AND nRITI ASSCHBLEO RECDR08, 

GRID IS COORDINATES (UTM ft PIXEL) OF MOHIIONTAL ft VERTICAL GRID 
INTERSECTIONS 

UTMPIX IS THE POLLONING UTM TO PIXEL TRANSFORMATION PARAMETERS! 
1, PIXEL COORDINATE OF FIRST SAMPLE I* SEGMENT 
2* LINE COORDINATE OF FIRST SAMPLE IN SEGMENT 
3, SLOPE OF INPUT PIXEL VS, OUTPUT PIXEL EQUATION 

а, SLOPE OF INPUT LINE VS, OUTPUT PIXEL EQUATION 
•>, NUMBER CF OUTPUT PIXELS IN THE CELL 

б, OUTPUT PIXEL NUMBER, 

IC0!C*L«1 JNP)X(l), PIXEL(I)* PIXOUT(NB»NSPD* CELLCG<29,29) 
DIMENSION GR1DEN (2,30) , 6RID8Lt**30#3U)» NUHPXCC30)* CPXVALCSO), 
.NUMLNCC30) 

INTEGER SAMPSG(29,10), RSTRT* P8TRT# SA*PO 
INTEGFR*2 MNDEXCIOOO) 

REAL NORTH 

COMMON /PIXDAT/ NLINPX, NPIXLN* NHGL, NVGL* 8RATE, NLPI* NSPL* 

, KDUH, INTERP* NS 

COMMON / GRID/ GRIDEN, 6RI08L, NUHPXL, CPXVAL* NUHLNC* CELLCG 
COMMON /8FGMNT/ NCGP, NBSAH(tO), NBLIMIO)# PBTRT(IO), 

, RSTRT (29, 10) 

COMMON / PJXIN/ MAXSP, MAXLN* MnOEX, ftAMPO* L1NE0 

COMMON / TRANS/ UTMPIX (6) 

EQUIVALENCE (NPIX, UTMPIX (S) ) , (18AMP, UTMPIX(6)) 

NMGL1 • NHGL • 1 
NvGLl • NVGL • 1 

IF (GH10EN(^,2) t GT,GRI0EN(2,l)) 8RAU* • SRATE 
If (GRI0EN(2, 2) ,LT,GRI0EN(2* 1 ) ) SPATE* ■ •SPATE 


LOUP OVER COLUMN GROUPS 
DC 1 1)20 ICGP»1 ,NCGP 
|»AXSP > NbSAM(lCGP) 
MAXLN s NbUMlCGP) 
SAMPO b MSTRT(XCGP) 
LCMTs 1CGP 4 20 
RfWjKD IUN1T 
CALL LOAOLN ( , TRUE, * 1* 


REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 


1* maxln, INPIX, PIXEL) 


COOP CVtR OUTPUT IMAGE CELLS 
DC 1010 1GY1B|,NHGL1 
IGV2 B TGV1 4 1 
LSTRT S NUMLNC(lGVl) 
iSTl'P b NUmLNC(IGY2) • 1 

LOAD LINES OF CCT NECESSARY FOR RE8*HMLE0 LINE 
L* IN B RSTMTCIGVIfICGP) 

IP (LMIN.EQ.O) GC TC ISO 
l mAX S M 1 NO (LMIN4MAXLN*!, NLINPX) 




UU ItlAPtK < 9 EAL8E 9 * LRU# II UX, UPIX# PIXEL) 

l COP rvH CM PC* I IRA6E LUES U THE CELL 
ISi CC U IHEaL8YRt#LSTOP 

m-CRTm • liWtOEM?#!) ♦ CILUE-OtSPATf s 

COOP rvtH OP 10 CELLS CCVFAUG PAP AREA 
1SAMP80 

Ot s«o itixtai ,«vbLl 

16*? a 16X1 ♦ 1 

UnT MjmOFO CE OUTPUT PIXELS U T"E CELL 
mpIX a KUPPXCUGX2) • MiRPXCClGMJ 

CHK* PPM CELLS MFQ0IP1K6 IMPM OATA 
IP ( CELL CGdGV 1*16X1 ) 9 EG 9 iCGP+toO ) GO TC 2*0 
IP (CHI CG(lGYl#IGXn»EG 9 lCGP> 00 TO 210 
til 1C 300 

trAi; IT*- COCHMKATES CP 6M10 CELL CCR'-EmS 
*»)<» a* a tiMirPMlflGXl) 
h* a GrftLEM 1 1 !Gx2) 

AY 8 tiMIOf K(? # IGYt ) 

CY a ti«!0PM2, 16Y?) 

UAR PIXEL Ct'ORCUAtES CP GRID CELL CORNERS 
as a tihlUSl (lflGVlflGXt) 

4L a (tMIOSl (? * T ti Y 1 1 1 G X I ) 

MS a (,MIUSLU»TGY1»I6X2) 
mi. a PM108I (?,|GYI,1GX2) 

CS a (iMICSLU'tGY?* IGX1) 

Cl a (.MUSll?# JG»2, 16*1) 
i/S a GMICSL(1,1GY2,IGX2) 

Cl a GMjl'SLl2')GY2tIGX?) 

CPMPI.H PNACllPNAL CELL DISTANCE ALtKti NORTHING AXIS 
aCMAIC a IAY-mjMH) / ( A Y»C Y ) 

CCiPiTP IMERPILATEO SAMPLE AND LIME VALUES AT CELL EDGES 
i/S 8 AS ♦ ACMATC*lfS*AS) 

ML a At ♦ ACRATCa(CL*AL) 

«S a HS ♦ aCMATC*(CS«SS) 

i'L a Ml ♦ aCRATC* (CL»0L ) 

LOPPi TE SI i PP. OP INPUT SAMPLES ANC LI'-ES MITHJN THE CELL 
i EL UP a MX • AX 
liUPlHU a (NS»ti$) / DELTAE 
• a (ML-KL) / OElTAE 

FIND INPUT CCCRL'T MATES OP FIRST PUJKT JP THIS GRID CELL 
l.kl a CPxvAMIGxn • AX 
tTMPIX(l) * US ♦ IX UljTMP JX (3) 
itfPix(2) * CL « UXUUTMPIX(A) 

1MEMPILAU OVER IMPLY OATA 
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ORIBMPL PA6E IS 
OP- POOR QUALITY 




11 • • 

l ■ * :-W, v 3£r^->' .':* 

/a * 


c 

c 


c 

c 


4*0 


2** 

500 


CHI RE8APP <»!X!lf PINOUT) 

60 TO 506 

Till !* W CUL MOT REQUIRING INPUT OA?A 

00 26 5 I«t#NPIX 

ISAPP • ISAPP ♦ I 

00 26$ J*t #68 

PINOUT (J# ISAPP) ■ KOUP 

CONTINUE 

WRITE TN| LINE SEGMENT OUT 
IP (NCGP.EQ.l) 60 TO 600 
IP (18APP a E6,0) 60 TO 1010 
CAU wRITAR (UMT* PINOUT# N8*X8«NP) 

GC TO 1000 


600 CONTINUE 

wRITE (It) PINOUT 
1000 CONTINUE 

1010 8APP8G ( I6T 1 # ICCP ) ■ I8APP 


C 

C 


C 

C 


1020 




of the 


1050 
10 40 
1060 

t 

1700 


REMND IUMT 

WRITE (6,1700) L8T0P; 1C6P 
COMJME 

A88FNHL6 A*0 WRITE OUTPUT IMAGE 
IF (NCGP.EG.l) RETURN 
UO 1060 IGV1«1,KHCLI 
ISIHT • HPLNC(IGVl) 

U8T0P • NUPLNCdOVUt) • 1 

A8SF.MH1F AMD WRITE GUT TME LINE SEGMENTS 
UC 1040 !UNt»L8TRT#UST0P 
NS » I 

DO 1050 ICGP«t#NC6P 
NSAwp • SA*P8G(!6V|#XCGP) 

IP (N8APP,E0 V 0) 60 TO 1050 
IUMT* IC6P ♦ 20 

UAU REAOAP (UUNJT# PINOUT (1#N8)# NUtNRAPP) 

N8 ■ NS ♦ N8APP 

CONTINUE 

**1T| (11) PINOUT 

CONTINUE 

R( TURN 


FfRPAT ( • 
EnU 


FINISHED PROCESSING' 16# * RECORDS IN CCIUPN GROUP* IS) 
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SUBROUTINE LOAOL* IP1RST, LMlN, UMAX, I*PIX # PIXEL) 

THIS SUBROUTINE 10*08 ARRAY »PIXlL» HIT* INPUT SRABE l IRES 
ININ THROUGH CRAY, |T PtRST CHEERS *HlC* LINKS ARf ALREADY 
LOAOei) ILI THROUGH L2> TO SETS RHINE nhjCH LINER CAR BE LCPT 
IN MEMORY ANO NNICH RUST BE RE AO, 

LN0CXC1) IS THE LINE NUMBER OP DATA StO*IO IN PIXfLC*#!) 
HNDCX(L) IS STORAGE LOCATION OP LINE NUMBER »L» 

IPOSN IS THE LIM NUHBER TAPE IS POSITIONED AT 

LOGICAL*! INPIK(NB,NPIXLN) # PIXELCNB, nB8AM,MAXLN) 

INTEGER*? LNOlX(|000! f HKOEX(!000)# *AMP0*4 
LOGICAL EOP, PtRST 

COMMON /PIXOAT/ NLINPK, NPIXLN, NMOL# N*6l # SR ATE, NLP I, NSPL* 

, HOUR# IKTERP, NS 

COMMON / PIXIN/ NBSAM, MAXLN# MNOIX, SA«PO# LlNEO 

INITIALIZE BY CALLING LAST LINE IN CONE LINE *0* 

IP (.N0T.PIR8T) GO TO ZOO 
NB8AM4 • N0*N88AM 
RE*INP 10 
EOF a .FALSE, 

IPUSN • S 
L2 B MAXLN 
LI s 1 

LM>EX(LU*1-MAXLN 
LNOEX(LZ)sO 
GO TO 1Z00 

JFIR8T# JLA8T • FIRST AND LAST LINES ALREADY LOADED 
200 IF (EOF) RETURN 
JFIRSTBLNDEXCL!) 

JLASTtLNCEXCLZ) 

IF(LM!N,GE,JF|R8T) GO TC 211 
*NITf(6,190) L M I N ,LMAX,JF INST, JL AST 
STOP 41 

NLIN4C • NUMBER OF LINES REQUIRED TO MILL IN FROM JLART TO LMAX 
JNE* • NFM FIRST LINF AFTER LOAOfNO NWlNRD LINES PROM JPIR8T 
1 CONTINUE 

nUNROsLMAXwJLAST 

jmnbjftrst«nlinro 

IF(nUnHC # LE ,0) GO TO 1200 
!F(K<L!NftD,GE.MAXLN) GO TO 300 

FIND INOFX OF LINE JN|H (I) 

LMINX1 • INDEX OF LAST LINF TO BE READ IN (1*1) 

00 210 1*1, MAXLN 
IF(LNDEX(I ) ,NE, JNF m) GO TO 210 
LMINX1 • I • 1 
IF(lnInX1,LF # 0H“INX1«maxln 
GO TO 220 
210 CONTINUE 
220 CONTINUE 

IFCL1 .GT.LMINX1 ) GO TC 240 
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C *« cm I • LOAD DATA MO* LI TO LPlNXI 

oo no mifi»iMi 

Of AO <10'ENOa|SOO#ERRa|GOO) INPXX 
CAM. MVL (INPXX(1,IAMP0), PSXCL(t#t't)» N0IANA) 

LmxcntiPooN 

IPOIN a IPOIN ♦ t 
230 CONTINUE 

It • LMINXI ♦ t 
L2 » LMINXI 
IP<H,QT, MAMIN) LI • ! 

00 TO 1000 
C 

C CASK 2 • LOAD OATA POOP Ll TMiQUOM mail* AND I THROUGH LMtNXt 
200 00 290 I ■ II, MAMIN 

READ (|0 f |N0a||00#ERRa|000) XNPIX 
CALL MVL (lNPXX(l#9AMP0) f PXXEL(I»I*I># NOIAMO) 

INDEX (I) • IPOIN 
IPOIN • IPOIN ♦ t 
290 CONTINUE 

00 2*0 I a I 'LMINXI 
RE AO (IO»ENOa|SOO*ERRrUOO) JNPfX 
CALL MVL (XNPXX(| # 8 Am* 0) # PIXEL(I # |# Hi NS9AM0) 

INDEX (I ) ■ IPOIN 

IPOIN a IPOIN ♦ t Itrtn , AP top 

2*0 CONTINUE reproducibility OF JHE 

LI a LM1NXI ♦ | ORIGINAL PAGE IS POOR 

ii a LMINXI 
00 TO 1000 

c 

C **• CASE 3 • NO OVERLAP OP OLO AND NEN DATA 
C POSITION TAPE 

300 IP ( IPOIN •EQfJNEN 180 TO 320 
READ (!0«ENOatSOO«ERRalOOO) 

IPOIN alPOIN ♦ I 
00 TO 300 

320 00 330 Ia! f MAXLN 

RFAO ( lOtlNDatSOOff RRaltOO) INPIX 
CALL NVL (INPIX(1 # SAMP0) # PIXEL(1»I#I)# NIIAMIl) 

LNOEX(I) a IPOIN 
IPOIN a IPOIN ♦ 1 
330 CONTINUE 
LI • I 

i L2 a MAXLN 

t • C 

| C LOAD STORAGE LOCATION! INTO ELEMENT OP "NOE* EQUAL TO LIN| NUMBER 

? C LINED • PIR8T IMAGE LINE MELO IN CORE 

C "X • STORAGE LINE NUMBER AT IMAGE LINE INDEX (!) 

1000 LINfO a LNOEX(Ll) 

00 1140 I a l, MAH* 

MX a LNOEX(I) • LINEO ♦ 1 
MNDEX(MX) a I 
1100 CONTINUE 
1200 CONTINUE 
RETURN 
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’ ' ; v, 

•• "»w- ' • : 


C 

1300 Ear ■ .TRUE, 

wRtTECO* 1301 ) IPOSN 
RETURN 

1400 wRJTf (6*1401) IPOSN 
STOP 43 
C 

190 F0RMAT(1H0*'ERR0R| 6ACKMRD RMO REQUESTED* *4110) 
1301 EORNATCIHO# ‘EOF AT LINE '•!*) 

140! F0RMAT(1H0*«READ ERROR AT lINE',iS) 

END 


8UBR0UTJNE RE3AMP CLPIXIL# LPXOUT) 

C 

f. INTERP • 1# *, 3 GIVES NEAREST# BILINEAR# BICUBIC INTERPOLATION 

C 

LCG1CAL*! LP1XEL(KB#n 88AM#MAXLN)» LPXOUT(NB#l> 

DIMENSION RK<<|,<|) 

INTEGER SAMPO, SLR 
INTEGER** NNOEX(IOOO) 

C 

r I TMPIX IS THE FOLLOWING UTM TO PIXEL TRANSFORMATION PARAMETERS* 

C l, PIXEL COORDINATE OF FIRST SAMPLE IN SEGMENT 

C 2# LINE COORDINATE OF FIRST SAMPLE IN SEGMENT 

C 3, SLOPE OF INPIT PIXEL VS, OUTPUT PIXEL EQUATION 

C «, SLOPE OF INPLT LINE VS, OUTPUT PIXEL EQUATION 

C b, NUMBER OF OUTPUT PIXELS IN THE CELL 

C 6, OUTPUT PIXEL NUMBER, 

COMMON /PIXDAT/ NLINPX# NPIXLN# NHGL# NV6L# SPATE# NLPI, NSPL# 

, KOUM, INTERP# NB 

COMMON / PIXlN/ NBSAM# MAXLN# MNOEX# SAMPQ, LIKEO 
COMMON / TRANS/ UTMPIX(6) 

EQUIVALENCE (NPIX# UTMPIX(S))# (I3AMP, UTMPlX (6) ) 

C 

LHASEsLlNEO*! 

MSI • UTMPIX(l) • SAMPO ♦ 1 
PLI • UTMPIXl?) • LINED ♦ I 
SPACE1 * UTMPIX(3)*SRATE 
SPACE* * UTMPIX(«)*SRATE 
C 

C LOOP OVER OUTPUT PIXEL8 

DC 1050 IslfNPlX 
ISAMP s 1SAMP * 1 

OtBl*l 

C 

C COMPUTE INPUT LINE AND SAMPLE NUMBERS 

P8BPSI*0E*SPACEI 
PL«PLI*OE* SPACE* 

GC TO (1000# *000# 3000)# INTERP 

L 

c ***** nearest neighbor interpolation ***** 

c 

1000 ipl « pl ♦ 0,5 

IF (IPL, l T, l, OR, IPL, GT, MAXLN) GC TO 1030 
C 

C ADD EAKTN ROTATION AND SEN'SCR DELAY OFFSETS 

IPS b PS + DELAY ( IPL+LBASE ) ♦ 0,5 
IE (IPS, IT, I.OR, IPS, GT, NBSAM) GO to 1030 
SI.R b MNOEX(IPL) 

C 

00 1021 IB AND* 1 , N0 

10?1 LPXOUT (1HANC# ISAMP) s LPIXELdBANO, IPS# SLR) 

GO TO 1050 
C 

C ***** BILINEAR INTERPOLATION ***** 

C 

* 00(1 


IPL • PL 


2 u<iS 
2 o lu 


P"? » 


l 

i: * 

i. 

3 i.< .> (* 


r 

l 


Si. 1 5 

S» I •> 
C 


S' VI 


IF UPL,L r,l,CH,|Pl,GT # KA)lLK»l) GL 10 1030 
tP a PL • IK 

it ?01t LlNEcl,? 

PStft « PS ♦ CELAYdPL+LBASF) 

IPS * FSCCT 

IF (IPS, LI, 1 .t«,IPS,GT,N0SAP-l) GG TO 1030 

U a MSCtt • IPS 
SI.H a ►KOfcX(IPL) 

10 ?005 IHAADa 1 , N0 

K1 a LPlXfcL(!bAKU»IPS ,SLR> 

*2 a LPtXf UI6AM), IPS4l,SUO 
*•* (l UE , IBANC) a Kl 4 C*(l»2»Kl) 

1PL a IPL 4 1 
COM IKE 

n ?»21 In AN(ja 1 1 Nfi 

1X1 a RKjj.mAM:) 4 CP*(kR(? f IbAKt)*RK(l f 1BAK0)) 4 0,5 
LPxnr T (IWAnC»ISapp) a jxi 
(»l Tt 1050 

* * * tUUHIC INTERPOLATION • * * * * 

1*1 a HI 

IF (IPL,lT,2,CSIPL,GT,f'4XU-2) Gl *0 |OiO 
OF a PL • IPl 
|F'L a IPL - 1 

compute a n interpolated sample in each cf « lines 

to 3010 u*eai # <4 

PSCC 1 a PS 4 DELAY (1PL+LRASE ) 

IPS a PSCCT 

IE ( IPS, LT, 2. OR, IPS,GT,K8SAM-2) GL TO 1030 
l: a FSCCf • IPS 
Si. K a "ratXdPLJ 
tC 3005 IBANpal ,Nb 
Rl a lPIXLLUbAND # IPS*l,SLP) 

*? » LPim (IBANt,IPS ,SLP) 

*3 a LP!XEL(IHAm;,IPS41,51R) 

KO a lP[xfL(IbAM!,IPS4i?,SLR) 

H } 1 B K 2 • Kl 
K<i J a <<u m K i 

(LINE , IBANC ) 8 c* (0* (C* C-«S4K2i) • (K« 34 ?*K 21 ) ) 

4 (KJ*K1)) * K* 

IPl a ]Pl ♦ 1 
COn T 1 nlE 

INTERPOLATE (VER 0 LINES TC GET EiN*L OUTPLT SAMPLE 

Ul 30? 1 lHAMjal,Nb 

F?1 a PN(?,IhANC) - RN(l,IHANr) 

M3 s - P*(3,I8AND) 

IM a |;P* f|,P* (CP* (P«34fi?l) • (NRA42, U*P2l ) ) 4 CRK(3,IBANC)- 
R* ( 1 » I HAND ) ) ) 4 RK(?,IBANt) 4 0,5 
IE 11*1,11,0 I X 1 SO 
IF (1X1, GT, 255) 1X18255 
U X('i.T( IbANC, ISAPP) a txl 
M TC 1050 


c 

10}0 DO 103b IBAKOatiM) 

1035 U>XOUT(IBAND#XSAHR) • HOUR 
C 


1050 CONTINUE 
RETURN 
EM) 
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SUBROUTINE EVPOLV UPUN# X# V, INI) 
EVALUATE POLVNONXAL PIT FUNCTIONS 


DOUBLE PRECISION C0EP<21#«)» AN8D# XD# TO, XXX# VVV 
INTEGER NTERM(S)/|#6#10# IS# 21 / 

INTEGER XP(2n/0 # l»0 r S#l,0#l#S,1#0#« > l#S#t#0#S,«#S#S#|#0/ 
INTEGER VPCfl I/O, 0,t,0,1,t,0,l,t»l,0,l,S, 3,0,0 ,i,*,s#o,s/ 
COMMON /LSQCPC/ COER# LSGOPG# IER1C2)# TOL 
COMMON / MEANS/ GCPM(R) 


C0EPC21#I)« COEPPICIENTS FOR | !• PIXEL 

2* LINE 
3* EASTING 
«• NORTHING 

ISTOP • NTERM(LSQOEG) 

AN8D • 0,0 

IP CIPUN,fQ,J,OR,lFUN,EQ,0) GO TO I 
XO ■ X • GCPM(S) 

VO • V • GCPM(O) 

GO TO 5 

I XO • X • GCPM(l) 

VO • V • GCPM(2) 

S CONTINUE 

00 10 I»l»I5T0P 
XXX ■ 1,0 

IP (XP( I ) ,N|,0) XXX « XD**XP(X) 

VVV • 1,0 

IP (VP(I),NE,0) VVV » VD**VP(I) 

10 AN80 • AN80 ♦ CCEP(I#!PUN)*XXX*VVV 

ANS • ANSD ♦ GCPM(IFUK) 

RETURN 

END 
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c 


c 


RIAL FUNCTION NVFOFF (M) 

CONFUTE NtRROR VELOCITY FROFILE OFFEff 
ue • nun »CR or pixeli in the ran scan uni 

OANFOr • NUNOKR OF PtXfiLt SKfMCO IN TNI LANOIAT KINK 

ANFL, FNAOE • ANRLITUOK» FNAIK OF NtRROR VELOCITY PROFILE CURVE 

LOOtCAL CCT 

COMMON SLANOST i CCT, UC, DI0C8N, IAmPOF, LINOFF, ANFL, RNAII 

IF (CCT) 00 TO II 
NVPOFF -• 0,0 
RETURN 

12 CONTINUE 

Fit I Ft ♦ SANFOF 

NVFOFF F ANFL • ESN 0,11)10)) • CP9l*FHA0E»l,0) / (LLC«1)) 

RETURN 

ENO 


- vv# 
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REAL FUNCTION MVPINV (PS) 

COMPUTE NEGATIVE MIRROR VELOCITY PROFILE CORRECTION 

LLC • NUMBER OF PIXELS IN THE RAN SCAN LINE 

SAMpqf • NUMBER OF PIXELS 8K!PPf.D IN THE LANQ8AT SCENE 

AMPL# PHASE • AMPLITUDE# PHASE OF MIRROR VELOCITY PROFILE CURVE 

LOGICAL CCT 

COMMON /LANDST/ CCT# LLC# DEGCIN# SAKPOF# L1NCFF# AMPL# PHASE 

IF (CCT) GO TO 10 
MVP1NV • 0,0 
RETURN 

10 CONTINUE 

PS1 • PS ♦ SAMPCt 

MVP INV s AMPL * SIN (6,26SlRb3 • (PS|tPMA$E*t ,0) / (LLC»1)) 

RETURN 

END 
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FUNCTION ERCURV (Ft) 

C 

C CONFUTE EARTH CURVATURE CORRECTION 

C 

C RE# R$AT • EARfH RAOSUO# SATELLITE OROIT RADIUS 
C TFOV • TOTAL FIELD OF VIE* OF THE ICANNER (11,54 DEGREE!) 

C UC NUNflER OF FIXEll IN THE RAN ICAN LINE 

e OAHFOF • NUNOCR OF FIXEll SNIFFED |N THl LANDIAT SCENE 

C 

IOOICAI eCT 

CONNON /LANOSV/ CCT# lie# deocen# sapfof, iinoff# ahfi, fhaie 
OATA RE, RSAT, TFOV SOSOT#!# THl,*# 0,*017*/ 

c 

IF (CCT) 00 TO 10 
CRCURV • 0,0 
RETURN 
C 

C CONFUTE SCANNER ANSIE AT FIXEl NO, F$ AND ANSLE SUSTENOEO AT 
C THE CENTER OF THE EARTH 
10 CONTINUE 

TFOVS « TFOV/2,0 
FSI • FS ♦ OAHFOF 

ANGSCN F CPSI»l,0)«TPOV/CllC>t) • TFOV* 

AN6ERT ■ ARSIN(S|N(ANOICN)*RSAT/RE) • AN88CN 
TOTERT • ARSIN (S!N(TFOVS)*RSAT/RE) • TFOVS 
C 

C F|NO SCANNER ANQIE BASED ON FRACTION OF TOTAL ARC ON THE EARTH'S 
C SURFACE ANO CONVERT TO FIXEL NUN8|R 
ANGSC1 « TFOV! * ANGERT / TOTERT 
PS 2 • 1,0 ♦ (ANOSCtvTFOVS) • UlC.t) / TFOV 
ERCURV • FSI • Fit 
RETURN 
ENO 


PAGE IS Poor 


99 


non an n nonnnnon 



FUNCTION ERCURI (PS) 

COMPUTE EARTH CURVATURE 0E*C0RRECTI0N 

RE* RSAT * EARTH RA0IU8* SATELLITE ORBIT RADIUS 

TFOV • TCTAU FtILO OF VlfN OF THE SCANNER (11,56 DECREES) 

LUC • NUMBER OF PIXELS IN THf RAM SCAN LINE 

SAPPOF • NUMBER OF PIXELS SKXPPfO IN the landsat scene 

LOGICAL CCT 

COMMON /LAN08T/ CCT* LLC* OEGCEN* SAhPOF* LlNCFF* AMPL* PHASE 
DATA RE, RSAT* TFOV /6367,4« 7205,6* 0,20176/ 

IN (CCT) GO TO 10 
ERCUR1 « 0,0 
RETURN 

EARTH ANGLE IS PROPORTIONAL TO CORRECTED PIXEL NUMBER, 

10 CONTINUE 

TFOV2 » TFOV/2,0 
CENTER ■ (LLCaD/2,0 
PS1 > PS ♦ 8AMPCF 

TOTERT • AR8IN (8IN(TF0V2)*R8AT/RE) • TF0V2 
ANGEPT • •TOTFRT • (CENTtRvPSt) / (CENTER*) ,0) 

COMPUTE ORIGINAL SCAN ANGLE BASED ON IA*TM ANGLE* 

C IS LINE FROM SATELLITE TO PIXEL LOCATION ON THE EARTM»S SURFACE, 
C » (R8AT*«2 ♦ RE**2 • 2,0*RSAT*HF aCOS(ANGERT)) m 0,5 
ANG8CN » ARSIN (RE/C*8lN( ANGERT ) ) 

PS2 • 1,0 ♦ (ANGSCNATF0V2) « (LLC*l) / TFOV 

ERCURI • P82 • PS1 

RETURN 

END 
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avmumt intiki, >, n(*hf) 

" e *° "'w •*«$ imo «**«v * rw which unit «t»hi 

LOGICAL*! »(N8APR) 

»tA0 (NTAPE1 ) N 
RETURN 


• I • 

♦ 44 




t»t *f f !* tit 


INTRV WRITAR (NTAPE1 « N, N8AMP) 


WRITE N8AWP BYTES PROF ARRAY W ONTO LOGICAL UNIT NT API | 

WRITE (NTAPlt) it 

RETURN 

END 


NAP OVERLAY 


A set of routines was developed to allow the registration of a ground truth 
map to Landsat CCT data. The subroutines are anaiagous to those previously 
described for registration, and so redundant descriptions will not be given. 
Differences In Input and method are the following: 
o the CCT coordinates are to be read Into the third and fourth columns 
of the GCP array, and the map coordinates Into the first and second, 
o the output image which is divided into cells must be the offset Image 
(Earth rotation and sensor delay removed), since this is the Image 
which is used In the transformation equations, 
o since each CCT line has a different shift from the offset line, the 
number of pixels and the starting pixel coordinate in a cell must be 
computed for each output line, rather than kept in a table, 
o since map class numbers can not be interpolated, only nearest neighbor 
resampling (subroutine NN2) is used. 

The routines which are modified and their storage requirements are given 
In the following table: 


SUBROUTINE 

STORAGE (BYTES) 

GCPFT2 

2884 

GCPCR2 

870 

G ROMP 2 

2609 ! 

CELMP2 

2496 

RECTF2 

3716 

NN2 

1 

1 

702 ! 


Listings of these subroutines follow. 


onononn ono 


8UHR0LTIN* GCPFT2 (GCP, MGCP# PAKOEG) 

If FIND RCPPFTRIC TRANSFORMATION NEEDED POP GEOGRAPHIC RCPERCHCINO 

DIMENSION RCP(4,hGCP) 

PCuRLI PRECISION ccef(21,4) 

LOGICAL CCT 

iNTFGfcH NTtRP(5)/3, 6,10, 15,21/ 

COMMON /LAM08T/ CCT, Lie# OCGCEK# CARHOP, LlNCFF, APPL, PHASE 
COMMON /L8QCFC/ COEF, LSODEG# lERfCi), TOL 
COMMON / PLANS/ GCPP(A) 


L 

C 


C 

C 


C 

C 


t 

c: 


GCP 18 GROUND CONTROL POINT TABLE INPUT 8V USER 

1, PIXEL In PAP DATA 

2, iINfe IN PAP DATA 

A, PIXEL in LAN08AT oata 
4, LINE IN LAN08AT oata 


IF (CCT) CALL GCPCR2 (GCP# MGCP) 

apgcpppgcp 

HADOfcG « 180,0/3, 141*986$ 

TGLtl ,fc«?0 
Of 1 It 1,4 
! »CPP(l) t 0,0 
**IU (6,101) 

•»*IU (6,1020) 


iPRODUCIBlUTY OF THE 
IIGINAL PAGE IS POOR 


compute SUPS of input data 
•»P in Jt) , pGCP 
DC S lot, 4 

8 GtPP(I) P GCPM(I) ♦ GCP(IfJ) 

pRITE (6,102) J, (GCP(I.J), 1*1,4) 
10 CONTINut 


compute means of input data 

OC 11 1*1,4 

11 GCPP(l) * GCPP(I) / APGCP 
*«IU (6,104) GCPP 

SUBTRACT PLANS OF INPUT DATA 
»RIlt (6,1014) 

-RITE (6,1020) 

DO 13 J*1,pGCP 
DC 12 It 1,0 

12 6CP( I , J) t GLP(I,J) • GCPP(I) 

-HITE (6,102) J, (GCP(!,j), ID, 4) 

13 CONTINUF. 

uno polynomial fits for degrees i • Input value of lsgoeg 

OU 100 180PCGI1,PAXDEG 
lSIOPtNTEHM(LSOOEG) 

IF UStOP.GT.PGCP) GO TO 400 
call I8UCF (0, GCP, PGCP) 

»R|U (6,383) LSCDCG.IERl, ((COEF( J, I ), 1*1,4 ),Jt 1,1 STOP) 
*RIU (6,111) 
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wFSHka»‘ f O 

Kthl>tSi< v n 

r 

f ACClNAfV AAAlVStS CF FIT 

lit* S«p lsi*»«GCP 
UlRfiCPt l* I) ♦ 6 CP*tl) 

<,tsncM/,n ♦ i;cH^ ( 2 ) 

««t8uc» i j'j) ♦ ucppO) 

U»»CCH(«,I) ♦ GCPMR) 

t 

CHL FV»»ei»(l*GF»r.N*AN8> 
i f Slip* ASS 

t At. t I Vl»mt*»*GE*t;N* AKS) 
ul«(U**n$ 

SR a !>•*<{ ♦ CL*Ai 
WFSPk a KKSMH ♦ SQ 
ki» AC*, a SOW T C8W) 

1,1)1* * hadiieg * a?an2(«ri ,OP) 

i 

fALt e vKt,LYt3 # r,P,ot # AKS) 

•>' SGF.-ALS 

RAI L f vMf'l V ( A , ItF , C»L # ANS) 

UNBftk—ANSi 

Su a * > • •*> ♦ U***? 

htV'l * MKSI t ♦ sr, 

A(i s Su** T ( S** } 

iul« S kAPl.'f (i * ATAN^CCF. ,£*) 

*mtf t6,iuO) I« k* ag , xriH, OP* Cl* U«AC # UDIR* DC* ON 
iHf. tCNTlMfl 
C 

Ar.CPta-ttP-l 

wtS*>k a (WtSPi/AGCP!) 

*E8tT a SRwt (Ht StT/AGCP) ) 

-t- j Tf- (*>,iSO) wfcSP*# RkRUT 

|.M, Cl'l* I )M l 

iS'.OIt. * ^Aittii 

Wfc ) IjMK 
I 

«• „ ,|tt (6,1100) t-$r,rfcG# ISTOP# PGCP 
tSwr-fG a iStrkG - I 
1 n*«s 
r 

l H'N'Af STAliK'TS, 

|.,j h>*lt (MS?Okf T***rtMi CCNTPCL PflJMb*/) 
t v ►» H**At i I x , I 6 # (if IS, 3) 

t • a ri>*M (///?(*«, '-iAKS CF IKPUT DATA A*C ' //5* *«F 15,1/ 

, • < !**( Sf **ka» 5 AHf F INST StPTBACTtD 1 ) 

» >W M**Af (Ik, M,^(M.'f J,MO, 1 ,«X,?M0,3*»M) 

m M>r»i f/ssw, 'cr^PAMisPA cf reSEPvFC asj prcdictcd values*/ 

,?Sk, *<;f < u*AFMC ' , asx, ‘LaacsaT */|SA# *f 4HuR* f 20A# *OBS • PRtO*#EOX* 
. •►*.«»:«. • ,/•»«, 'CHS • PMFR'/Sk, i**AGKITLOk DIRECTION* #IOX# *P ERROR 
,, t * • , |,!N, '-kliMtUCC riR|CTI0N*fI4V«*F tRRCR N ERROR'/) 

4M a *;••'*' a f (n least StiLAWfS FIT CF DEGREE * # I 3# 25 A# 'ERROR COOES s'* 
J/*i- t, TlFFF IC TFMS'/|('A* *E*ST PlAfL*#IOV*'NCRTM LINE**IOV* 

um • , is*, *i. rvA '/ru*tPRiP0 ( 6)) 
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A90 KOKMAT C/2(l5X,'RMS ERROR »♦ ,t 13,6, 15*> ) 

1019 FOHHAT ('1',/X'CONTROL POINTS AFTER SUBTRACTING RIANS'/) 

J0?0 fOWOdt (18X, 'GEOGRAPHIC .22*, »lAN03AT'/18X, 'COORDINATES', tSX, 
,'C00R01NATE8'/) 

1 100 FORMAT (/POX # *f:t OF DEGREE' ,12, ' REQUIRES', 13, ♦ GROUND CONTROL PQ 
, IMS, ' , 15, • WERE SUPPLIED, */) 

END 


reproducibility OP TRp 
original page 1 st ™ 
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SUBROUTINE GCPCR2 (GCP# MGCP) 

GCPCR2 REMOVES MIRROR VELOCITY PROFILE ANO EARTH CURVATURE 
DISTORTIONS PRIOR TO OBTAINING LEAST SQUARES PITS 

GCP IS GNOUNO CONTROL POINT TABLE INRUT BY USER 

OIMENSION GCPCA'MGCP) 

REAUO MVPOFF 

COMMON /LANDST/ CCT , LlC# DEGCEN, SAMPOF, llNCFF, AMRL, PHASE 

ADO BACK OELAV TO GET ORIGINAL CCT P!*EL NUMBER 
WRITE (6* TOO) 

00 10 NGCP • 1« MGCP 

WRITE (6*101) GCP(U,NGCP), GCP(3,NGCP) 

LINE * GCP(4,NGCP) 4 0,5 
SAMP * GCP(3*NGCP) 4 DELAY(LINE) 

APPLY MIRROR VELOCITY PROFILE CORRECTION 
OFF « MVP0FFC8AMP) 

GCP(3#NGCP) • GCP(3* NGCP) • OPP 
C 

C APPLY EARTH CURVATURE CORRECTION 
CURV * ERCURVCSAMP*OFF) 

GCPC3.N6CP) * GCP(3»NGCP) • CURV 
C 

SAMPO * SAMP 4 SAMPOF 
SHIFT s OFF 4 CURV 

WRITE (6,10?) SAMP, SAMPO, OFF, CURV, SHIFT# GCP(I#M§CP) 

10 continue 

RETURN 

C 

100 FOMAT ('1*,20X, (GROUND CONTROL POINT C0RRECTI0N8»//|VX# *OPFSET 
t 5x,' ORIGIN At *,3X,( CCT SCENE »,TK,»MVP(#RX, »CURV •,SX,*NETI,SN, 

. «C0Pfl.'/7X, 'HE CO«D», 5 (6X, 'SAMPLE (),J(7X#t SHIFT »),6X, (OFFSET*/) 

101 FORMAT (1X,2F1?,3) 

102 FORMAT ( •♦ * ,?4X,SF 12,3) 

END 
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SUBROUTINE GHCMF2 

GR0MP2 COMPUTES THE INTERPOLATION GRID INTERSECTIONS AND THS 
Interpolation ERRORS IN INPUT IMAGE COORDINATES 

THIS ROUTINE IS PC* TRANSFORMATION PROM A MAP (ESN COORDINATES) 
TO AN IMAGE (PAL COORDINATES). 

GRID tS COORDINATES (UTM A PIXEL) OP HORIZONTAL A VERTICAL ORIO 
intersections 

OfHf nSIOn GRIDPL(2#30)« GRIDCN(2»30#50), NUMPXC(IO), CPXVALOO)* 
t NUHLNC(30) # ERRCELC2G) 

LOGICAL*) CELLCG(2*,29) 

REAL LINE* LCEN, MVPOFF, MVP 

COMMON /PIXOAT/ NLINPX, NPIXLN» NHGL, NVGL, SPATE. NLPI, N8PL, 

• NOUN, INTERP* NO 

COMMON /MAP0AT/ STRTL# STOPL, STRTP# STOPP 

Common / GRID/ GRIDPL, GRIDEN, NUHPXC, CPXVAl, NUMLNC, CELLCG 

COMPUTE NUMBER OF OUTPUT LINES AND SAMPLES 
M.PI » STOPL • STRTL ♦ 1,5 
NSPL ■ STOPP • STRTP ♦ 1,5 

eino maximum ano minimum offset coordinates 

(•LYMIN a |O000,0 
DLVMAX a 0,0 
uC S5 NRa|,b 

OLYMIN a AMIN) (DLVMIN, OELAY(NR)) 

S5 ULTmaX a AMAX1 CDLYMAX, DELAY (INT (ST0PL)*1*NR) ) 

STRTP a STRTP - DL*MAX 

STOPP a STOPP • OLYMIN 

COMPUTE GX AM) GY GRIO SPACING 
MHbLiaNHGL*) 

NWGLlaNVGL^I 

GX a (STOPP-STRTP) / NVGL1 

gy s (stoml-strtl) / nhgli 

calculate GRID INTERSECTIONS BY STEPPING THROUGH IMAGE GRID AND 
TRANSFORMING TO UTM MAP OR GEOGRApHlC COORDINATES 
DU ) 0 1 0 1 a J , NVGL 
GNIOPLil,!) « STRTP ♦ (I»1)*GX 


REPRODUCffilLITY OP THE 
ORIGINAL PAGE IS POOR 


Or 1000 Jbi,nhGL 

GN10PL (2, J) a STRTL ♦ (J*1)*GV 

APPLY mirror VELOCITY ANO EARTH CURVATURE CORRECTIONS 
TO GET PIXEL GROUND LOCATION 
LlNt a GRIDPL(2#J) 

PIXCCT a GRIDPU1.I) ♦ DELAY(INTCtINE*0,5) ) 
mvp * MVPOFFCPIXCCT) 

CRV a kRCURV (PIXCCT »MVP) 

PIX a GRICPL ( t , I ) • MVP • CRV 

CALL EVPOIY (1, PIX, LINE* PE) 

CALL EVPULY (2* PIX, LINE, PN) 


107 


on on nn non on no on 


GRIDEN(1* J* 1) ■ PE 
6RtOEM2»«l*I) » PM 
1000 CONTINUE 

1010 CONTINUE 

c 

WRITE (6*1050) 

00 toil J»1*NMGL 

1011 WRITE (6*105!) CGRI0ENU ,J,K) , GRIDEN(J* J,K) , GRIDPL(|#K)» 
.GRI0PL(2*J)* K«1,NV6L) 

COMPUTE and PRINT PINAL GRID ERRORS 
ERRMAX * 0*0 
WRITE (6*1065) 

00 1030 I««2,NHGL 
I«l*|«-1 

OC 1020 J4s2* NVGL 
j<u*J4«l 

COMPUTE MAP COORDINATES BY BILINEAR INTERPOLATION IN A CELL 
PEB * (GNI0EN( 1 * 14, J4)*GR]DEN(| * 141 , J4)*GR1DEN(1*I41* J41) 

, ♦GN10EN(1*IO*J41)) / 4*0 

PNB « (GHI0LN(2* 14* J4)wGRIDEN(2* )41 * JO)tGRIOEN(E* I41*J4l ) 

* ♦GRI0EN(2,14,J41)) / 4*0 

COMPUTE CENTER PIXEL AN0 LINE 

PCEN ■ (GR1CPL ( 1 * J4) ♦GRIDPL( 1 * ) ) / 2.0 

LCF.N > (GRI0PL (2* I4)wGRIDPL(2* 141 ) ) / 2.0 

APPLY MIRROR VELOCITY AND EARTH CURVATURE CORRECTIONS 

TO GET PIXEL GROUND LOCATION 

PCNCCT « PCEN ♦ OELAY(INTCLCCNtO,S)) 

MVP * MVPOPF (PCNCCT) 

CRV s ERCURV(PCNCCT-MVP) 

PCEN • PCEN • MVP • CRV 

COMPUTE MAP COORDINATES BY FUNCTION 
CALL EVPOLV (1* PCEN* LCEN* PE) 

CALL EVPOLY (2* PCEN* LCEN* PN) 

COMPUTE ERROR 

f RR8SQRT((PEB«PE)**2 w(PNB»PN)**2) 

ENRCEL ( J41 ) s ERR 

EKNMAX s AMAX1 (ERRMAX* ERR) 

1020 CONTINUE 

WRITE (6*1070) (ERRCEL (J) * Jtl,NVGLl) 

1030 CONTINUE 

WRITE (6*1060) ERRMAX 

COMPUTE TABLE OF FIRST OUTPUT LINf NUMBER IN EACH CELL 
NUMLNC(l) s 1 
00 1039 J82*NHGL1 

1039 numlnC(J) s GRIDPL(2#J) * GRIOPKSfl) ♦ 2.0 
NUM1.NC (NVGL) * NLPI ♦ 1 
RETURN 





' W'. 
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C 

c 

c 

c 

c 


I 


c 

c 


SUBROUTINE CELMP2 (CORE) 

NCOHPUTE DIMENSIONS OP INPUT ARRAY WHICH CAN BE HILO IN CORE AT A 
TIME ANO NUMBER OP PARTITIONS REOUtRtOi 
PIX AND RON VARIABLES HAVE DIRECTIONS APPENOEOa l.O# PfXNN IS 
NORTHWEST CORNER PIXEL OP A CELL 

INTEGER ROrtNw, PIXNN. ROhNE. PIXNE. ROMSE# PJXSE# RONS*# PIX8N. 
.RN. R8» BN# 8E# Rt« R2# 81# 82# CORE# R8TRT 

0IMEN8I0N 6RIDPL(2#30)# ORIOEN (2. J0#JQ) # NUMPXC(JO), CPXVAL(JO), 
.NUMINCC3Q) 

LOGICAL*) CELLCG(29#?9) 

COMMON /PIXDAT/ NLINPX# NPIXLN# NH6L# NVGL# SRATE# NLPI# N8PL* 

• KOUM# INTRP# NB 

COMMON / GRID/ 6RIDPL# GRIOEN# NUMPXC# CPXVAL# NUNLNC# CELLCO 

COMMON /BEGMNT/ NCGP# NBSAM(IO)# NBLIN(IO)# NSTRT(tO)# 

. R8TRTC2G# 10) 

INITIALIZE CELL COLUMN GROUP INDICATOR ICELtCG) 

NHGL1 • NHGL - 1 


NVGL) a NVGL • 1 
DO 1100 Ial#NHGLl 
DO 1100 Ja) tNVGLl 
1100 CELLCG(I»J) a 255 
C 

C FIND NCGP. THE NUMBER OP COLUMN GROUPS, 

C SI IS FIRST INPUT PIXEL FOR THIS COLUMN GROUP 
NCGP c 0 


SI * 1 


C 

C START A NEW COLUMN GROUP OR SEGMENT 
1 800 CONTINUE 


NCGP 8 NCGP ♦ 1 


M1NNC 8 1000000 
C 

C LOOP OVER CELL ROWS 
DO 2100 Is 1 .NHGL 1 
R 1 a 1000000 
R2 a 0 
S2 a 0 
C 

C LOOP OVER CELLS FOR THIS SEGMENT 

OC 2000 Jsi .NVGL1 

IF CCELLCGCI#J),NE,25S) GO TO 2000 

c 

c FIND RANGE OF IMAGE COORDINATES REQUIRED PQR THE OUTPUT CELL 

RGWNw s GRIOEN (2. J » J) ♦ 0,5 
PIXNW a GRIOEN ( 1 . I # J) * 0,5 
RGWNE a GRIOEN (2# I # J.I ) * 0,5 
PIXNE 8 GRICEN ( 1 # I # J*1 ) ♦ 0,5 
ROWSE s GRI0EN(2#I+1#J+1) ♦ 0,5 
PIXSE s GRICEN(1#I*1#J*1) * 0,5 
RCwSW 8 GRIOEN (2. 1.1 ,J ) ♦ 0,5 
PIXSw a GRIOEN (1#!.1#J) * 0,5 
RN s MAXO (MIN0(R0WNW#R0WNE)# 1) 


o o o rs o non n nr n nno n n n 


R8 a v TN0 (NAXO(RON$w,ROWSt># NLfNPX) 

S* a NAXO (NIN0 (P!XNk,PIX8k># |) 

M a NINO (MAXOIPIXKE'PIXSE)# NP|XLM 
C 

C CP»Ck FOP IMAGE COORDINATES OUTSfOE THE INPUT JHA8C 

IE (RK,GT,NLlKPX,0P,R8,tT # I,0P # 8W,GT,»)PlXLN i 0P # 8l t lT t l) 
, GO TO 1920 


FIND range OF 1HAGE COORDINATES POP THIS POP OP CELLS ANO 
PINO NO* GP OUTPUT CELLS THAT C*N BP PILLEO GIVEN CORE UNIT 
N1 a NINO CR1 • RN) 

H2 a NAXO (R2« RS) 

82 a NAXO (82* 8E) 


NR s R2 • R| 4 1 
NC a 82 • 81 4 | 

IF (NR«NC*LE.CORC) 60 TO 1950 


reproducibility - of the 
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CORE REQUIRED EXCEEDS THAT AVAILABLE 
GO TO NEXT ROW OP CELLS 
NINKC * mjno (NCSAVE, HIKNC) 
CELLCGd* J) a 222 
GO TO 2100 


1920 CELLCGd # J) a 0 
GO TO 2000 


CORE IS AVAILABLE* SAVE REQUIRED 0IHEN8I0N8, 
1950 NCSA vE « NC 

2000 CONTINUE 

2100 CONTINUE 


LASTPX « SI 4 NINNC • 1 
IF (LASTPX*LT*NPIXLN) GO TO 2110 
LASTPX a KPIXLN 
vInk.C • KPIXLN • 81 4 1 
2110 CONTINUE 

NOW USE numHER op Input columns AVAILABLE TO SET CELL SEGMENT 
INDICATORS AND TO PINO ROW AND COLUMN INFORMATION 
n* I w-S 1 a 1000000 

LOOP OVER CELL ROWS 
DO 2150 lai«KHGLl 
IC1 a 100 
IC2 a 0 

RSTRT (liKCGP) a 0 

LCOP OVER CELLS 
OC 2150 Jal *NVGL1 

CHECK WHETHER THE CELL REQUIRES INPUT OUTSIDE OP THE IMAGE 
IF (CELLCG(I'J)*EQ,0) GO TO 2126 
C 

C JIMP OuT IF THE CELL REQUIRES TOO MUCH CORE* 

IF CCELLCGC T»J) *E0*222) GO TO 2140 


in 



c 


c 

2126 

2130 



IF THE CEIL USES INPUT DATA, CHECH FOR THE LAST PIXEL 
IF (CELLCGd, J),EQ,259) SO TO Slit 
00 TO 2130 

JUMP OUT IF THE CELL REQUIRES SAMPLES PAST LASTPX# 

FIXNE « GRIDEN(l,I,j4l> 4 0.9 

PIXSfc • GRI0EN(l,l4t, J4l) 4 0,9 

36 • MINO (mAXOCPIXNE»PIXSE)» NPIXLN) 

IF (S6,G?, LASTPX) 60 TO 21*0 

FIND FIR8T AND LAST CELLS THAT USE INPUT DATA 
1C! • MINO (J, ICU 
ICE * NANO (J, IC2) 

6LSF SET COLUMN GROUP INDICATOR TO OROUP NUMBER# 
CELLCGd, J) s NCGP 
GO TO 2130 

CELLCGd, J) ■ NCGP 4 100 
CONTINUE 


L 

C FIND FIRST INPUT RON FOR THIS RON OF CELLS 

2140 IF (IC2«EQ,0) GO TO 2190 

HOnnm • GHIDEN(2,I,IC1> 4 0,9 
ROwNE a GR!DEN(2,I»!C24!) 4 0,9 
RN « MAXO (MINOCRONNN'RONNE), |) 

RSTRTU#NCGP) « RN 
C 

C FIND STARTING INPUT COLUMN FOR NEXT SEGMENT 

IF (J.EQ.NVGL) GO TO 2190 
NEXTCL • IC2 4 1 

PIXNM a GRlDENd, I, NEXTCL) 4 0,1 
PIXSN a GRIDENCl, 141, NEXTCL) 4 0,9 
SN a MAX0 (MINO (PIXNM, PIXSN), 1) 

HINS1 a MINO (8M, MXN81) 

C 

C SET INDICATOR FOR STARTING CELL IN NEXT SEGMENT 

OU 2145 JaNEXTCLf NVGLI 
2145 CEUCG(I,J) a 255 
2150 CONTINUE 
C 

C SET PARAMETERS OF INPUT DATA SEGMENT 
MAXNH a MINO (C0RE/M1NNC, NLINPX) 

NBSAM(NCGP) » MINNC 
NBLIMNCGP) a MAXNR 
NSTRT ( NCGP) a SI 
SI a M INS 1 
C 

C IF ALL CELLS NOT DONE, START A NEM SEGMENT 
IF (l ASTPX.LI, NPIXLN) GO TO 1S00 
C 

WRITE (6,100) 

UO 2160 I«1 ,NHGL1 

2160 wRITf (6,101) (CELLCGd, J), Ja), NVGLI) 
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■" V? ■ . J , ,w : ? 

• V ’s r " •'•: • •• . . .v ; " 


ft* TURN 

too FORMAT C///5X# 'COLUMN QROUF NUMBERS FOR THE ORIO CIUS'/IX# 
9 3R('*’)/> 

101 FORMAT CSX 9 2*I2) 
fcM> 


REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 


SUBROUTINE RECTF2 (INFIX* PIXEL* PIXQUTI 



C 

C HANOI E HEADING ANO WRITING OF DATA REGOROS 
C CALL NEAREST NEIGHBOR RESAMPLING ROUTINE 
C EACH OUTPUT LINE 13 SHIFTED TO THE OFFSET SHADE COORDINATES 
C TO MATCH THE INTERPOLATION OHIO, 

C 

LOGICAL*! INPIX(l), PIXEL!!)* PIXOUT(NSPL)# CCLLCGCtf f E«) 
DIMENSION 6R00UTC2,J0), ORIDlN(t*SO*IO)i NUHPXC(SO)* CPXVALC30), 
•NUMLNC(SO) 

INTEGERS MNDEX(SOOO) 

INTEGER $AMPSG(29* 10) * RSTRT# PSTRT' SAHPG 

COMMON /PIXOAT/ NLlNPXf NPIXLN' NHGL, NVGL# SRATE# NLPI# NSPL# 

• KDUM« INTERP# NS 

COMMON / GRID/ GROOUTf GRIOIN* NUMPXC, CPXVAL* NUHLNCt CELLOS 
COMMON /SEGMNT/ NCGP# NBSAM(tO) » NSL1NC!0 )i PSTRT(tO)' 

, R8TRT(29*!0) 

COMMON / P1XIN/ MAXSP, MAXLN' MNOfX# SAMPO, LtNEO 

COMMON / TRANS/ TRANIO(A) 

EQUIVALENCE (NP!X f TRANIO(S))' CISAMP, TRANIO(A)) 

c 

NHGL! • NHGL • ! 

NVGL1 « NVGL • 1 
C 

C LOOP OVER COLUMN GROUPS 
00 1020 ICGP«I«NCGP 
MAXSP e NBSAM(ICGP) 

MAXLN 8 NBLIN(ICGP) 

SAMPO 8 PSTRT CICGP) 

LUN1T 8 1CGP ♦ 20 
REMIND lunit 

CALL LOAOIN (.TRUE,* 1* MAXLN* INPIX, PIXEL) 

C 

C LOOP OVER OUTPUT IMAGE CELLS 

DO 1010 IGV18I.NHGL! 

IGY2 s IGV t ♦ ! 

L8TRT 8 NUMLNC(IGVt) 

1ST OP 8 NUMLNC(IGV2) • I 

c 

C LOAD LINES ON INPUT NECESSARY NOR RESAMPLEO LINE 
LMIn a RSTRT ( IGV 1 * ICGP) 

IP (LMJN.EQ.O) GO TO ISO 

LMAX 8 MlNO (L M lN*MAXLN«| * NLlNPX) 

CALL LOAOLN (.FALSE,* LMIN* LMAX* INPIX* PIXEL) 

C 

C LOOP OVEN OUTPUT IMAGE LINES IN THE CELL 

ISO 00 1000 IIINE8LSTRT*LST0P 

OUTLIN • GRDOUT (2*1) ♦ ILINE • ! 

C 

C COMPUTE OFFSET COORDINATE OP FIRST CCT PIXEL IN THE ORID 

OFF 1 8 1,0 • OELAV(ILINI) 

C 

f UNO STANTING SAMPLE NUMBERS AND COORDINATES FOR EACH CELL 

NLMPXCU) 8 1 
CPXVAL(i) ■ OFF! 
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200 


C 

C 


C 

c 


DO 200 J»2#NVCU 

NUHPKCCJ) • CROOUTCUJ) • OFF! ♦ *«0 
IP (KUMPXC(J),lT,l) NUHPXC(J) ■ I 
IP (KUMP*CCJ).GT,N0Pttn NUHPXC(J) • NSPl ♦ I 
CPXVALU) » OFPI ♦ NUPPXC(J) • I 
NUMPXC(NVGL) • NSPL ♦ I 


LOOP OVER GRID CELLS COVERING OUTPUT AREA 
ISamP ■ 0 

DO 300 IGXI t 1,NV6L1 
IGX2 ■ SC«t ♦ I 


C 

C 


PINO NUPBER OP OUTPUT PIXELS IN TNI CELL 
NPIX ■ MJPPXCC IGX2) • NUPPXC(IGXI) 

IF (NPIX 9 EQ 9 0) 60 TO 300 


CHECH FOR CELLS NOT REQUIRING INPUT DATA 
IF (CELLCG(!GVl 9 IGXi) 9 EQ 9 ICGP*i00) GO TU 290 
IF (CF.LLCG(IGVWIGX1) 9 I0 9 ICGP) GO TO 210 
GO TO 300 


t 

C 


C 

l 


LOAD OUTPUT COORDINATES OF GRID CFLl CONNERS 
210 AX > GRDOUT d » IGXI ) 

AY B GRDUUT (2» 1GV1 ) 

BX s GROOUT (I# 16X2) 

CY s GROOUT <2, IGY2) 


LOAD INPUT COORDINATES OP GRIO CELL CORNERS 
AS b GRIDIn ( l t IGVI* IGXI) 

GRIDIN (2# tGVlfXGXl) 

GRI0IN(1 « 1GV1 # 16X2) 

GRI0In(2 # 1GV!»IGX2) 

GRIOINdf IGV2# IGXI) 

GHI01N(2, IGV2, IGXI) 

GRIDIN d 9 IGV2* IGX2) 

G«IDINC2#IGV2,IGX2) 


AL 

BS 

BL 

CS 

CL 

OS 

Dl 


9 

s 

■ 

9 

9 

9 

8 
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C 

c 


COMPUTE FRACTIONAL CELL DISTANCE ALONG OUTPUT V AXIS 
ACRATO b (AYvOUTLIN) / (AY*CV) 


C 

C 


COMPUTE INTERPOLATED SAMPLE AND LINE VALUES AT CELL E06E8 
USba8«ACRAT0*(C8»A8) 

ULbaL4ACRAT0«(CI«AL> 

R8b»8*ACRAT0*(DS«B8) 

mL8BL4ACHAT0*C0L-BL) 


C 

c 


COMPUTE SLOPE WITHIN THE CELL FOR SApPLES AND LINES 

DfclTAX s BX • AX 

TRAMC(3) s (R8*G8) / DELTAX 

TRAWIC(O) s (RL.GL) / DELTAX 


C 

C 


FIND INPUT COOROINATFS OF FIRST POINT |N THIS GRID CELL 
UX1 8 CPXVAHIGX1) • AX 
TRAMC(l) 8 08 A UXUTRAN|0(3) 

TRAn]G(2) b OL ♦ UXUTRANXO(A) 


U5 


c 

t 


lNTF.RPU.ACl> l^AGF DATA 

CAIL N A ^ (P!aH# PlXCOT) 

GO TO S00 

C F 14.1. 1 R TH> LtU NOT REQUIRING INPUT * AIA 
<?S0 PO *55 I»1«M>!X 

ISAMP S I SAMP ♦ | 

?55 PIAOI'TCISA^P) a KOUM 

sou continue 

c 

C *H|1f lufe LUF SFGMINT OUT 

IF (NCGP,t.O,n CO TO 500 

IF ( t S amp 0*0) GO TO 1005 

•»R|T| Cl.UMT) JS AMP 

CAU *R I T AH (IUMT# P1A0UT, ISAMP) 

GO TO 1000 
C 

50V *H*m cm PIXOUT 
1 0*»O CONTI NUF 

GO 11 1010 
C 

luoS SAwpst,CII,vi #in*F) > o 

10}l> CONTINUE 

c 

RfcwUC I.UMT 

WHITF («>» 1 00 ) L8TCP, UGP 
10*1' COM 1M 01 

c 

C ASSfwMCF A*r ►HITE CITPUT IMAGE 

If cmgp, F. c t n re turn 

UC 1050 l GY 1«1 fNMGtl 
1 51 HI • M-Ml>l C IGV 1 ) 

LSI TP s KLMlNC(tGVUI) • 1 

f 

l AgSf ► RIF AnO *«ITF ci T IMF LlNf SFG^f ^Tf 

uc loan IUM*L8THT#iSTCP 
*b * 1 

i»r t n An icftpst ,aci*p 

IF (SAM’SGClGVJ,Trf.M),Fr,,CT GO It 10§o 
ItMTl Tfr.M ♦ M 
Rf At! C 1. 1 MT) \SA«P 

LAI.I. HFAUAH (l.tiK IT , PIXCl)T(NS), NSA^PJ 
•S « AN ♦ NSAnH 
I <» Ju COM JAOfc 
1 (>ai ► H 1 Tf Ctl) PtaOtl 
1 <.sc CTMIHiP 

HfeTI HA 

L 

1 tit FORMAT (• FHISMFO RFSAvpi H-.fTROS IN COIUMA GRCtP',13) 

IMl 


O O Cl 


SUBROUTINE NN* (PIXEL# PIXOUT) 

PERFORM NEAREST NEIGHBOR INTERPOLATION 

LOGICAL*! P!XEL(NB8AM«MAXLN)f PTX0UT(M 
INTEGER SAMPO, SLR 

integer** mnoexcioooi 

COMmqk /PtXDAT/ NLINPX# NPIXLN# NMGL# NVGL# SPATE# NLP l# KSPLt 
, ROUP# INTERP# NS 

COMMON / PIXIN/ NBSAM# NAXLN# PROEM* SAMPO# LIKES 
COMMON / TRANS/ THANIO(S) 

EQUIVALENCE (NPtX#TRAN!OCSn» CISAMP, <RAN10<*)) 

C 

PS! ■ IRANlO(l) • SAMPO * I 
PL! • THANJOC2) • LINEO ♦ I 
SPACE 1 » TRANIO(S) 

SPACE* ■ TRANIO(O) 

c 

00 1050 !■! #NPIX 
(SAMP ■ I SAMP ♦ I 
OE * 1*1 

I PL • PL! ♦ DE*SPACE2 ♦ 0,5 
IF C!PL#LM#QR t !PL#GT#MAXLN) GO To |0S0 
C 

IPS ■ P8I ♦ DE*8PACE1 ♦ 0#5 
IF ( IPS#LT# t •QR#!P8 l GT a NB8AM) GO TO t «»S0 
C 

SLR • mnOEX(IPL) 

PIXCUT(ISAMP) a P!X!L(!PS#SLR) 

GO TO 1050 
C 

1050 PIXOUT(ISAMP) a kOUM 
1050 CONTINUE 
ME I URN 
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COMPRESSION BY ADAPTIVE DIFFERENTIAL PULSE CODE MODULATION 
NAME 

ADPCM (ADAPTIVE DIFFERENTIAL PULSE CODE MODULATION) 


DESCRIPTION 

ADPCM uses a predictive coding technique for image data compression. 
Employing a third order predictor, this method performs an adaptive 
DPCM on blocks of data 16 pixels wide. A constant bit rate is used 
for the entire image. A restriction for this routine is that only 
a I6*n pixel wide portion of the image will be processed. 


CALLING SEQUENCE 
CALL ADPCM (IV,X,I0UT) 

where IV. X. I0UT are arrays with variable dimensions used in 


processing the data. The array dimensions required are: 


IV (A, NPL) bytes 

X (2, NPL) words 

I OUT (NPL) bytes 



when* NPL is the number of pixels per scan line. 


INPUT/OUTPUT 
1. INPUT 

The input data should be on logical unit 10 as a data set 
consisting of NUNE records and NPL pixels per record with 
four channels per pixel. Each data value has a length of one 
byte. 

Initial parameters needed to process the image are transferred 
from a driver program through the following common statement: 
COMMON NB, NUNE., IBIT, NPL 
where 

NB is the band currently being processed (integer) 

NLINE is the number of records in the input image (integer) 

IBIT is the approximate bit rate desired (integer) 

NPL Is the number of pixels per record which will be processed. 
It must be an integer multiple of 16. 




i 
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. OUTPUT 

The input parameters and the mean values of the original and 
reconstructed images are printed for each band. The re- 
constructed image for band NB is written onto unit NB. 

DESCRIPTION OF SUBROUTINES 

The storage requirements and the functions of the non-system 
subroutines used are given in the following table. 


DESCRIPTION OF SUBROUTINES FOR ADPCH 
DATA COMPRESSION 


SUBROUTINE NAME 

STORAGE 


(Entry Points) 

(Bytes) 

FUNCTION 

ADPCM 

2850 

Read data from input data set, 
call mapping and quantizing rou- 
tines, call predictor routines, 
reconstruct and write image by 
calling for inverse transforma- 
tions. 

VARVI (VARV) 

1152 

Predictors for incoming data 
values. VARVI is used for first 



1 ine only. 

DSQ (QUAN) 

908 

i 

Perform mapping to obtain uniform 
distribution of coefficients, 
quantize to specified number of 
levels, do inverse to reconstruct 
values. 


The linkages of the subroutines are given in the following table. 


LINKAGES OF SUBROUTINES FOR ADPCM 
DATA COMPRESSION 


ADPCM 

VARVI (VARV) 


DSQ (QUAN) 




% 


E 


VI* PERFORMANCE SPECIFICATIONS 
1. STORAGE REQUIREMENTS 

The program requires 4AK bytes of storage when operating on a 
LACIE sample segment. 

2* EXECUTION TIME 

The average speed obtained from several computer runs is 628 
pixels/second. 

VII. METHOD 

ADPCM employs a block adaptive DPCM for data compression. Each row 
is divided into blocks 16 pixels wide and a DPCM performed on the 
blocks. A third order predictor is used except for the first row 
and the first element of each row. 


\ 
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The elements Xj_j j + | Xj ^ j and X| j are used along with 
weighting functions to predict Xj j + j. The predictor equation 
given by X^ j +1 » Aj X f ,^ j + A^ j + A | X |-1 f J+1 

where A| * Aj * 3M, A3 **1/2 and the configuration Is: 


Xj-i.J 

Xj-1 ,J+1 



i“ 

X,J+1 


is 


The variance of a block is calculated and used to compute the 
scaling factors necessary for quantization of the block. The next 
point in the block is predicted and the difference between the actual 
and the predicted value is quantized using the scaling factors for 
the block. The quantized value is then used to reconstruct the point. 


A constant bit rate is used throughout the image. A flow chart is 
given in the following figure. 
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VIII. COMMENTS 


There Is no restriction on the number of records In the Input Image 
but only a 16 *n pixels wide segment will be processed. 



IX. TESTS 

The quality of the reconstructed images has been examined by use of 
mean values, plots and histograms of the reconstructed images, and 
plots and histograms of difference images. An example of difference 
image histograms follows. 


X. LISTINGS 

Listings of the subroutines follow. 
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t Figure 10. Histograms of Difference Images for Four Bands 

\ (original - ADPCM Reconstruction) 
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SUBROUTINE AOPCM CIV# X# IOUT) 
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c 

e 


c 

c 

c 

c 


c 

c 


c 

c 


c 

c 

c 


AOPCM PERFORM AN AOAPT1VE 2*0 OPCM ON AN IRASE 10*N PIXELS NIOE. 
THERE IS NO RESTRICTION ON THE NUMBER OP LINES IN THE IMAGE. 

INPUT IMAGE IS PROCESSED ONE SAND AT A TIME 

NPL i NUMBER OF PIXELS PER LINE tl**N) 

NL1NE ■ NUMBER OF LINES 
NBPL * NUMBER OF BLOCKS PER LINE 
BLK • NUMBER OF PIXELS PER BLOCK 

IBIT • APPROXIMATE BIT RATE 

LOGICAL UNITS 

10 • INPUT PICTURE (BYTES) 

NB • RECONSTRUCTED BAND NO. NB (BYTES) 


DIMENSION IV(0#NPL) # X(2,NPL)» lOUT(NPL)# ACS) 

LOGICAL* I IV# TOUT 
INTEGER BLK /16/ 

REAL MAXP#MtNP,MAX(0)/5*t27,0#AS,0/#MlNU)/«*0,0/ 

COMMON NB# NLINE# IBIT# NPL 

DATA GAIN /2,5/, CONH# CONV /2*1.0/» A /ft. 75, O.TS# *0*0/ 


INITIALIZE COUNTERS# SET IMAGE PARAMETERS 

ISUMlfO 

ISUMBMO 

NBPL • NPt/BLK REPRODUCIBILITY OF THE 

“w : SJJIJS; <®iginal page b poor 


THE FIRST LINE OF THE OATA IS HANOLEO SEPARATELY. 

READ THE FIRST LINE OF OATA INTO ARRAY !V, PICK OFF THE OSSIREO 
BAND AND STORE IT IN X(1,J) 

READ UO) IV 
00 120 J«1#NPL 
I IV • IV (NB# J) 

X(l,J) • IIV 
ISUM1 a I SUM l + IIV 
120 CONTINUE 


CALCULATE quantizer LEVEL and scaling FOR the FIRST point. 
LEVELP2**CIBIT*l) 

SDEaMAXP/GAIN 
CALL 03Q (GAIN# 9DE) 


CALCULATE THE REPRESENTATIVE VALUE FOR THE FIRST PIXEL 
F a X(t#!> 

CALL OUAN (F# LEVEL# EG) 

X(l# 1 ) a EQ 

CALCULATE VARIANCE# 3# OF A BLOCK. U*!»G VARIANCE COMPUTE THE 
SCALING FACTOR FOR THE REST OF THE BLOCK. 

PARaMAXP/B. 

IF(PAR.LT ( 6,)PARa8 ( 


i. 


ns 


nnnnnn onn noon o o non 


00 199 JJa{,NBPL 

CALL VARVl (X* CQNV* JJ, I, PAR, NPL) 

IP CJJ.iQ.l) 8LA0 a 8 ■ 

CALL 080 (8,9* I) 

JLMJJ«U*BLNAi 

JHtJJABLK 

XF(JH,EI,NPU JHaNPL*! 

PREDICT NEXT POINT IN BLOCK* QUANTIZE ANO POPP REPRESENTATIVE 
VALUE* CONTINUE UNTIL ALL POINTS IN BLOCK APE PROCESSED* 

DO 190 jaJL*JH 
Jlaj4l 

EX • C0NH*X<l,J) 

P • XCI*J1) • EX 

CALL QUAN (P # LEVEL* EG) 

XC1*J!> • EX A EO 
190 CONTINUE 
199 CONTINUE 

PEAO IN NEXT LINE OP OATA* PICK OFF APPPOPPlATE BAND ANO STORE 

DO 899 XX«8*NL!NE 

READ CIO) IV 

00 890 Jal*NPL 

IIV a XV(NB*J) 

X(8* J) a IIV 
I8UMI a I8UM1 ♦ IIV 
890 CONTINUE 

PREDICT THE FIRST POINT* CALCULATE THE SCALING FACTOR FOR 
VARIANCE OP NEW RON NITH RESPECT TO THE PREVIOUS ROW, QUANTISE 
AND PORP REPRESENTATIVE VALUE POP FIRST POINT OP THE ROW* 

CALL DSC (8*9* SLAG) 

EX a C0NV*X(!,t) 

P a X(8*U • EX 

CALL QUAN (P, LEVEL* EQ) 

X(8*l> a EX ♦ EG 

CALCULATE VARIANCE* 8* POR A BLOCK* USING THIS VARIANCE CONFUTE 
THE SCALING FACTOR POR THE REST OP THE BLOCK, 

DO 890 JJM*NBPL 

CALL VARV (X* A* JJ, 8* PAR* NPL) 

CALL 080 (8,5* 0) 

JL*( JJ*l )*6LK*i 
JHaJJ*SLK 

IP(JH*EO*NPL) JHaNPL*! 

CONFUTE THE REPRESENTATIVE VALUE OP THE NEXT POINT IN THE BLOCK 
BY QUANTIZING THE DIFFERENCE BETWEEN THE NEXT POINT ANO THE 
PREDICTED VALUE ANO THEN ADDING THE GUANTIZEO VALUE TO THE 
PREDICTED VALUE, 

ROTATE THE PREDICTOR VALUES PROP RON 8 TO ROW ! 

DO 890 jaJL* JH 
JlaJtl 

EX a A(i)*X(8,J) « A(S)*X(1,J) ♦ A(8)4X(I,Jt) 

P • X(8*Jt) • EX 




CALL GUAM (F, LEVEL, IQ) 

XC2,J!) a EX ♦ CG 
IF CXO,J),OT,MAXP) X(t,J) • MAXP 
IF (XCt,J),LT,MlNP) X(1,J) 8 MNP 
IOUT(J) • XC1,J) ♦ 0,9 

• m a • Alt till 


REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 


JSSIt 4 ! tfttJM* f «*iatiTtJ» REPRODUCIBILITY OP THE 

X(l!5) ■ I X(lfa) ,0UT(J) ORIGINAL PAGE IS POOR 

ISO CONTINUE * 

2*0 CONTINUE 

LOAD OUTPUT ARRAY AKO HOVE PREDICTOR VALUE FOR LAST SAMPLE 

IF (X(i«NPL),GT,MAXP) X(I,NPL) • MAXP 

IF CXCS,NPL),LT,MINP) X(t,NPL) • MNP 

I0UTCNPL) • X(tfNPl) 0,9 

I0UP2 ■ ISUH2 ♦ I0UTCNPU 

X(t,NPL) • X(«,NPL) 

WRITE RECONSTRUCTED IMAGE EOF A LINE OP DATA ONTO UNIT 0 NS, 
WRITE (NS) I0UT 
200 CONTINUE 

WRITE LAST RECONOTRUCTEO IMAGE LINE ON UNIT NO, 

00 SOO J«I#NPL 

IF CX(t,a),LT,MINp) X(1,J) ■ MINP 
IF (X(!,4),GT,MAXP) X(I,J) ■ MAXP 
tOUT(J) > XUiJ) ♦ 0,9 
SOO I0UM2 a ISUM2 ♦ IOUTCJ) 

WRITE (NS) TOUT 

COMPUTE MEANS FOR ORIGINAL AND RECONSTRUCTED IMAGE, 

PIX8NLINE«NPL 

AMEANt a I SUM) / P)X 

AMEAN2 8 I SUMS / PIX 


WRITE(6,S0) 

NRITEC*,39) NPL,NLINE,NB,IBIT,MAXP 
WRITE!*, 41) AMEAN1, AMIAN2 
RETURN 


|9 FORMAT ( • NPl a «,I4,10X, 'NLINE a i,l4#|*X, »8AKD NO, a t,I2,)3X f 
t * IBIT a » $ 19, 19X, ’MAXP a •,F*,2) 

SO FORMAT (90X, l ADAPTIVE TW0#DIMCN8I0NAL 0PCM«,//) 

41 FORMAT (/» MEAN OF ORIGINAL IMAGE a« ,FS,S,24X, ‘MEAN OF RECONSTRUCT 
,E0 IMAGE a«,FS t 3//S) 

ENO 


127 


c 

c 

c 

c 

c 

c 

c 


SUBROUTINE VARV1 (X* COVH, K, St PAR, NML) 

SUBROUTINE VARVt COMPUTES THE VARIANCES FOR A BLOCK OF DATA IN THE 
FIRST RON, PREDICTED VALUE IS THE VALUE OF THE PREVIOUS SAMPLE 
TIMES A RPIOMTINS FACTOR. 

DIMENSION X(2,t),A(3) 

Ml a NPU • I 

l* 0|0 

Nis(K«n*isfi 

N|bN|«|B 

IF (N2*SQ,NPL) NSaat 
DO 100 JaN|,N2 
Jlajat 

EXaCOVH*XCI'j) 

EaX(l,Jt)«EX 
S«8»E«E 
100 CONTINUE 
8 a 8 / 16 * 

IF CN2,t0,Mi)8a8Al ,0606 
SaSQRTCS) 

IS*S*0/PAR 
IFflStGE.S) IS • 7 
8a(l8AO,*)*PAR/0,0 
RETURN 

> ****lNTRV*wiRV 4 CX# *A# *a#*8» *?AR| *NPL ) ** ♦♦♦••‘♦♦♦“♦•♦♦♦♦♦********** 

SUBROUTINE VARV CALCULATES THE VARIANCE FDR A BLOCS OF 16 PIXELS* 
VARV USES A THIRD OROFR PRFOICTOR THAT uTtlllES THE ADJACENT 
element IN the sane linf# the adjacent element IN THE SAME COLUMN, 
ANO THE OIAOONAL ELEMENT TO PREDICT EACH SAMPLE, THE FIRST RON Op 
DATA CANNOT BE HANDLED PY THIS ROUTlNt, 

000O0OSAA6OO0A0*0*4AOA«*SA0A4 40O0O|a44 0S« )OAO«0#OaAOOASBSAORAAOOO«0 ASA 

Ml a NPL • I 
8a0,0 

NIa(K«t)*|6At 

NSaNtAlB 

IF (NS.EQ.NPL) N2a"l 
00 1000 JaNl, N2 
Jlajal 

EXsA(! )*X(2, J)aA( S 1*X (1 . J)«A(2)*X( 1* J1 1 
EaX(2,Jl)»fX 
Sa84E*E 
1000 CONTINUE 
SaS/16, 

!F(N2,tQ,M!) 8a8*l *0606 
SaSQRTCS) 

18a8*0/PAR 
IF(IS*0C*0) ISaT 
Sa(IBAO.S) *PAR/0*0 
RETURN 
ENO 


SUBROUTINE 010 CXMULT# .SUM) 

BN ASSURED LAPLACIAN DISTRIBUTION OF THE COEFFICIENTS IS TRANS* 
FORMED TO A UNIFORM DISTRIBUTION BEFORE QUANTISATION, 

DBS CONFUTES THE CONSTANTS OF THE MAPPING FUNCTION, 

XMULT ■ ESTIRATIO NUMBER OF SISMAB IN THE DATA BANDS 




EMAX*XMULT*OIOMA 
EM 9 SSRTCS.OtEMAX) 
EXFMVCXF(»CN) 

EMI 4 •EM/EMAX 
RETURN 


/ CS,0*SIQMA) 


♦ 


ENTRY SUAN CP, LEVEL* CO) 

QUANTISATION OF AC COEFFICIENTS, 

F • VALUI TO BE QUANTIZED 

LEVEL • NUMBER OF LEVELS IN THE QUANTISER 

EQ ■ REPRESENTATIVE VALUE F$R P 


2 

C 

e 


c 


c 

c 


I !«0 

!F(F,6C,0,0)SO TO 2 

F«*F 

IIM 

CONTINUE 

FGRMARO MAPPING 
EM • F*EM1 
IXPEeEXP(EM) 

ZbEMAX* ( I ••CXPC )/ ( | ••EXFM) 




LEVELI«LEVEL*t 
12*(Z/CMAX)*L£VEL 
IF (IZcLTf 0) 12*0 
IF(tZ,ST,LEVELI)!Z*LEVELl 

INVERSE MAPPING 

ZOs (FLOAT (IZ) *0,5) /FLOAT (LEVEL) 
ZON«l a »ZG*CI,«£XPM) 

EQb«EM AX/CM* ALOG (SOW) 

IF(II,EQ,I)E0b«|Q 

RETURN 

END 


COMPRESSION BY TWO DIMENSIONAL TRANSFORMS 


NAME 

TRANC 

DESCRIPTION 

TRANC employs an adaptive transform coding method for Image data 
compression. Using a fixed block size and a fixed transformation 
(Nadamard or Cosine), this method performs a blocked, two* 
dimensional orthogonal transformation on a I6*m row by I6*n pixel 
Image, where m and n are integers. The variances of the transformed 
coefficients are estimated using a recursive formula. A bit assign- 
ment is made proportional to the logarithm of the estimated 
variance; therefore, the number of bits assigned to each coefficient 
varies from block to block. The image is reconstructed by using 
inverse transformations. 

CALLING SEQUENCE 

CALL TRANC (IV,I0UT,D) - Cosine Transformation 

CALL TRANH (IV.OUT.D) - Hadamard Transformation 

where IV,I0UT and D are arrays with variable dimensions. The array 

dimensions required are: 

IV (k, NPl)) 

I0UT (NPL) | byt ® 5 
D (16, NPL) words 

where NPL is the number of pixels per scan line. 

INPUT/OUTPUT 
1 . INPUT 

The input data should be on logical unit 10 as a data set 
consisting of NLINE records and NPL pixels per record with 
four channels per pixel. Each data value has a length of one 
byte. 


Initial parameters needed to process the Image are transferred 
from a driver program through the following common statement t 
COMMON NO, HUME, FIXB, NPL 
where 

o MB is the band currently being processed (Integer) 
o MINE Is the number of records In the Input Image which will 
be processed. It must be an Integer multiple of 16. 

(integer) 

o FIXB Is the approximate bit rate desired (floating point) 
o NPL Is the number of pixels per record which will be processed. 
It must be an integer multiple of 16. (integer) 


2. OUTPUT 

The Input parameters , the average bit rate, and the mean values 
of the original and reconstructed images are printed for each bend. 


The reconstructed image for band NB Is written onto unit NB. 


DESCRIPTION OF SUBROUTINES 

The storage requirements and the functions of the non-system 


subroutines used are given In the following table. 

hwroducibu.ity op the 

SSSkal page is k*» 


DESCRIPTION OF SUBROUTINES FOR 2-D 
TRANSFORM DATA COMPRESSION 


SUBROUTINE NAME 

STORAGE 


(Entry Points) 

_ (Bytes) 

FUNCTION 

TRANC (TRANH) 

6202 

Reed 16 line blocks from 
input dete set, set up 
erreys to do 2-D Cosine or 
Hedemerd transforms, map 
2-D arrays Into 1-D, 
estimate recursive variance, 
calculate bit rate, quantize, 
reconstruct and write image 
by calling for inverse 
transformations. 

MAP (UNMAP) 

152b 

Map 16 x 16 array of 
transformed coefficients 



into 1-D array, and do 
inverse. 





L 


DESCRIPTION OP SUBROUTINES FOR 2-0 
TRANSFORM OATA COMPRESSION (CONT.) 


SUBROUTINE NAME 
(Entry Points) 

STORAGE 
_ (Bytes) 

FUNCTION 

OSQ (OMAN) 

908 

Perform mapping to obtain 
uniform distribution of 
coefficients, quantize to 
specified number of levels, 
do inverse to reconstruct 
coefficient values. 

HADD 

1110 

Madame rd transformation of 
a string of 16 pixels. 

COST I 

18W» 

Cosine transformation of a 

MDFT f 

1826 

string of 16 pixels. 

MFORTI 

1870 



The linkages of the subroutines are given In the following table. 


LINKAGES OF SUBROUTINES FOR 2-0 
TRANSFORM OATA COMPRESSION 


TRANC 

HADD 

(TRAv.H) 

COST 


MAP 


UNMAP 


OSQ 


OMAN 

COST 

MDFT 

MDFT 

... J 

MFORT 


VI. PERFORMANCE SPECIFICATIONS 
1. STORAGE REQUIREMENTS 

The program requires 66K bytes of storage when operating on a 
LAC IE sample segment. 
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I 

v 


VII. 



■ " I 

i 

2. EXECUTION TINE | 

The speed of the program Is highly dependent on the type of trans- 
form applied, and somewhat dependent on the bit rate, being slower 
at higher btt rates due to the quantization of a greater number of 
coefficients. Average speeds from several computer runs are given 
In the following table. REPRODUCIBILITY OF THE 

ORIGINAL PAGE IS POOR 


PROCESSING SPEEDS FOR 2-D TRANSFORM 
COMPRESSION 


(4 band pixels/second) 


BIT RATE 

COSINE SPEED 

HADAMARD SPEED 

1/2 

150 

488 

1 

141 

421 

2 

127 

314 

3 

118 

268 

4 

122 

259 


METHOD 

The adaptive transform method uses a two-dimensional orthogonal 
transformation followed by recursive quantization to compress an 
image. Initially the input image is divided into blocks of 16 x 16 
pixels. After a two-dimensional Hadamard or Co^ne transformation is 
performed on a block of data, a scanning method i& used to convert 
the two-dimensional array into a one-dimensional array. The variance 
of the transformed coefficients are estimated using the first-order 
recursive relation 

* 2 * A*. 2 + (1-A) X 2 

i+1 1 ' 

where X, Is the I-th transformed coefficient after quantization and 
2 

9 \ is the estimated variance of X, . A is a weighting coefficient 

' 2 

which is set to 0.75. The variance,^ » needed to start this recursive 
relation is obtained by averaging the sum of the squares of the first 
four coefficients and then quantizing this average using 32 levels. For 
the actual quantization a nonuniform quantizer designed for a Laplacian 
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distribution is used. Experimental results demonstrate that for most 
images, the probability density function of the variance is a Laplacian 
probability density function. The mapping, g(.), of the transformed 
coefficients yields a signal, Z, with a uniform probability density 
function. Z is then quantized and the result undergoes the inverse 
mapping, g *(.). The mapping, g(.) for an exponential probability 
density function is given by 
X Q (7-exp (-Mx/Xjj 


Z » g(x) 


1-exp (-M) 


where 


M 


3 # 


3<r- _ 

I X I I 

The inverse mapping is given by g (x) = _o in 1 I (l-exp(-M))L 

M L M J 


The number of bits, m^ , assigned to each coefficient is obtained from 
n»j ■ Integer ^ logj + cj 

where C is a constant which is adjusted to correct for variations 
from the desired bit rate. If the number of bits assigned to a 
coefficient is less than one, the remaining coefficients in the block 
are not transmitted. With this type of bit assignment, coefficients 
with large variances are assigned a greater number of bits. 


In order to reconstruct the image, the one-dimensional array is 
mapped back into a two-dimensional format. The inverse of the 
two-dimensional orthogonal transformation is taken, a check is made 
for out-of-range values, the data is rounded off to pack into bytes, 
and is written out. 


A flow chart of the algorithm is given in the following figure. 
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for 2-0 Transfo*™ 




VIII. COMMENTS 


Only a 16*m row by t6*n pixel portion of the Input image can be 
processed. 

IX. TESTS 

The quality of the reconstructed images has been examined by use of mean 
values, plots and histograms of the reconstructed images, and plots 
and histograms of difference images. An example of output from the 
program follows, showing the mean values of the original and recon- 
structed images. 

X. LISTINGS 

Listings of the subroutines follow. 
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lacie MH 

ADAPTIVE ?»AUSFO»H CIV) I NO USINS TMD-OINFNStnNAl COSINE TRANSFORM 

NFL • IV NLINF ■ 112 BAND NO. | 

NUF -127.0 HI NR ■ 0.0 FIRS • 1.0 

AVFAABF BIT RATS • 1.170 

NFAN OF ORIGINAL IMAGF • IA.7SA MEAN OF RECONSTRUCTED I NABS • 14.792 

ADAPT I VF TRANSFORM CODING USING TMV>OtMENStONAL COSINE TRANSFORM 

NFI ■ III NUNE • HE 

NUF *127.0 NINF ■ 0.0 

AVERAGE BIT RATE • 3.110 

NFAN OF ORIOINAL IMAGE - It. 249 

AOAFT IVE TRANSFORM COOING USING TMO-OlHENSIONAL COSING TRANSFORM 

NFI • 192 NLINE • HE BANG NO. 3 .. .. 

MUF -127.0 NINF - 0.0 FUB - 3.0 - ■ 

AVERAGE BI7 RATE * 3.1S3 . .. . 

MEAN OF ORIGINAL IMAGE • 18.T3B MEAN OF RECONSTRUCTEO INAGE • 10.741 

AOAFT I VC 7AANSF0RN COOING USIN3 TMO-Ot 4FNS10NAL COSINE TRANSFORM 

NFL - 192 NUNE • 112 BAND NO. 4 

NAXF ■ AS.O NINF* 0.0 FIRB. ■ 3.0 

AVERAGE BIT RATE • 3.112 

MEAN OF ORIGINAL INAGE ■ 8.951 MEAN OF RECONSTRUCTEO INAGE *.. B.9S2 _ ..... 


BAND NO. 2 
FUB • 3.0 

MEAN OF RECONSTRUCTED INAGE • 10.249 


Figure 12. Printed Output of the 2D Transform Compression Program 
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SUBROUTINE TRANC (IV, I0UT, 0) 

TRANX IS AN ADAPTIVE TRANSPORN COOING PROGRAM WHICH PERFORMS 
A IS X 16 BLOCKIO HAOANARD OR COSIN! TRANSPORT ON A 16*N PIXELS 
BY |6*N ROW JHAGE, THE TK0*»DIWEN8I0NAL ARRAY IS HAPPED INTO A 
0NE«DIHEN8I0NAL ARRAY IN A ZIGZAG MANN|M, 

A PIR8T ORDER RECURSIVE RELATION 1$ USED TO ESTIMATE VARIANCE 
OP EACH TRANSFORMED COEFFICIENT ■ wHT*VA^n«WNT)*CURRENT REP VALUE 
A LAPLACIAN FUNCTION IS USED TO MOOEl THE PROBABILITY DENSITY 
FUNCTION OF THE AC TRANSFORMED COEFFICIENTS, 

THE tMAGE IS RECONSTRUCTED BY MAPPING 

BACK INTO A |6 X |6 ARRAY AND PERFORMING A 2*D INVERSE MAPPING, 
TRANC PERFORMS THE PROCESS FOR ONE SAND AT A TIME, 

INPUT AND RECONSTRUCTED IMAGES ARE IN BYTE ARRAYS, 

THIS METHOD USES A FIXED TRANSFORMATION AND A FIXED 16 X 16 
BLOCK SIZE* THE NUMBER OF BITS ASSIGNED TO EACH COEFFICIENT 
. VARIES FROM BLOCK TO BLOCK, 

INPUT PARAMETERS 

NB • BAND NUMBER TO RE PROCFSSFD 
NPL ■ NUMBER OF PIXELS PER LINE 
NLINE a NUMBER OF LINES TO BE READ 

PTXB • approximate BIT RATE 

ITT • TRANSFORM TYPE 

1 * HADAMARD (TRANM) 2 • COSINE (TRANC) 

NBPL a NUMBER OF BLOCKS PER LINE 

NBPV a NUMBER OF BLOCKS IN VERTICAL DIRECTION 

NTB a NUMBER OF TOTAL 16 X 16 BLOC'S IN IMAGE 

MAXP a MAXIMUM VALUE OF PICTURE 

M JNP a MINIMUM VALUE OF PICTURE 

NHT a WEIGHTING COEFFICIENT FOR RECURSIVE RELATION USED 
TO ESTIMATE VARIANCE 

INITB a NUMBER OF BITS REQUIRED FOH FIRST VARIANCE (5) 

IB IT a NUMBER OF BITS ASSIGNED TO EACH COEFFICIENT 

ITCNT a COUNTER FOR THE NUMBER OF BITS USED FOR ENTIRE IMAGE 

leCNT a COUNTER FOR NUMBER OF BITS USED FOR EACH 16 X 16 BLOCK 

n i »t • n t i t«t ii i t it i r» m n » it i n t »r »t 1 » « m 1 »tn »t m i t m«t t » i t t r i i 

666S6SS*A6A66A66666iS6AAA6«AA*A46SA64G4**4^SUAS*6A6«G6S4*6A6!46i6664!6 

DIMENSION IV(4,NPL), lOUT (NPL ) t 0(16, NPL), A(}6), 8(16), V(256), 

, C(l6, 16) 

REAL ITCNT, MAXP, MINP, MAX(4) /3*l27,0»63,0/, MIN(4> /4»0,0/ 

LOGICAL*! IV, IOUT 

COMMON NB, NLINE, FIXB, NPL 

DATA M, N /16, 256/ 

C ENTRY FOR COSINE TRANSFORM 

ITT a 2 

WRITE (6,35) 

GO TO 1 
C 

C ENTRY FOR HADAMARD TRANSFORM 

ENTRY TRANM (IV, ICUT, D) 

ITT a t 
WRITE (6*34) 
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' *. A, \ ' >sT ... . 





e 

c 


c 

c 


INPUT PARAMETERS 
N8PL a NPL/M 
NBPVaNLINE/M 
NTBaNBPV*NSPL 
AtNf a ALOGC2.0) 
NMTaO.Tf 
WHTCalfVWHT 
XNITBaS 


Suginal page 1» *« 


initialize counters* set imase parameters 

ITCNTaO.O 

ISUNiaO 

XSUNSaO 

MAXP a MAX fNS) 

MINN* MIN(NB) 

CCCaMAXPot.O 

DC0NSaPXXB«AL0GCCCC/120,)/AL0Gt2.) 

A It X NFL SLOCK OF DATA IS INPUT FOR ONE BAND. AFTER PROCESSING 
ENTIRE BLOCK THE RECONSTRUCTED IMAGE IS MRITTEN OFF ANO THE 
NEXT 10 X NPL BLOCK IS INPUT. THIS CONTINUES UNTIL ALL THE OATA 
FOR ONE BANO IS PROCESSED. 

DO 090 L't.NBPV 


e READ DATA ONE LINE AT A TIME* PICK OFF DESIRED SAND ANO STORE 

C IN ARRAY D. CONTINUE UNTIL 10 LINES HAVE BEEN READ. AFTER 

C COMPLETION. 0 CONTAINS A 10 X NPL BLOCK OF DATA. 

DO 100 IN1.M 
READ (10) IV 
DO 100 Jal.NPL 
IXV a IV(NB.J) 

0(1# J) a I!V 
I SUM! a 1SUM1 ♦ II V 
100 CONTINUE 
C 

C A It XU BLOCK OP OATA IS TRANSFORMED# ENCODED AND 

C RECONSTRUCTED. THIS CONTINUES UNTIL THE ENTIRE 10 X NPL BLOCK 

C OF DATA IS PROCESSED. 

DO OOO NHal.NBPL 
C 

C PERFORM A 2*0 ORTHOGONAL TRANSFORM (HADAMARO OR COSINE) 

C ON A 10 X 10 BLOCK OF DATA 
DO 250 Jaj.M 
JJa(NH«l )*MOj 
DO 220 lal.M 

220 A ( I ) -a 0(1, JJ) 

60 TC (221,222), ITT 

221 CALL HAOO (A, 8) 

GO TO 229 

222 CALL COST (A, B, 1) 

229 CONTINUE 

00 2)0 fal,M 
2S0 C (I, J)aB(I) 

C 
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00 050 Ul.M 
00 840 J*1,M 
840 AC J) i C C I • 4 ) 

00 TO (241.248), ITT 
84) CALL HAOO (A# B) 

60 TO 845 

848 CALL COOT (A* B, )) 

845 CONTINUE 

00 850 JM,M 
250 CCI,J)«B(J) 

A 16 X 14 BLOCK OF 2«D TRANSFORMED 0ATA IS CONVERTED TO A 
)«0 FORMAT 
CALL MAPCC.V) 

AVERAGE THE BUM OF THE SQUARES OF THE FIRST 4 AC COEFFICIENTS AND 
QUANTIZE TO FORM THE FIRST VARIANCE. 

s«r,o 

DO 310 J*2,5 
8»8«V(J)*V(J) 

310 CONTINUE 
VAtS/4,0 
8R8QRTCVA) 

XMULT»3.0 

CALL DSQ CXMULT. 8) 

LCVEL«2**JNITR 
CALL OUAN (S« LEVEL. EO) 

VA*EQ*EQ 

QUANTIZATION OF COEFFICIENTS 

ASSIGN THF NUMBER OF BITS TO EACH COF* F IC TENT , INCREMENT 
COUNTERS, IF THF NUMBER OF BINARY OH-ITS ASSIGNfD FOR THE 
QUANTIZATION IS LESS THAN ONE, THp He v A!N|NG COEFFICIENTS IN THE 
BLOCK ARE NOT TRANSMITTED, 

ICONTsO 

VC1) * AINT (V(1)*0,S) 

DO 350 1*2, N 

IB I T • 0,5*ALOG(VA)/ALN2 ♦ OCONS 
IFCIBIT,EQ,J)XMULT«l,8 
IFC1BIT ,LT, 1 ) GO TO 360 
ICONT«ICONT*IBIT 
S*8QRT(VA) 

CALL DSQ (XMULT, S) 

LEVEL*2**(IBIT«n 
CALL QUAN (V(I), LEVEL, EG) 

VCI)»EQ 

VAs*HT*VA4HHTC*EQ*EG 
350 CONTINUE 
GO TO 5T5 
C 

360 DO 370 J* I , N 
370 V(J)»0,0 
C 

C ADD OVERHEAD BITS AND ADJUST »OCONS» *'ASED ON CESIRFO BIT RATE 
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ITS CONTINUE 

IBITOC • AL06(V(|))/ALN2 ♦ 1,0 
ICOMT • ICON? ♦ INITB ♦ IBITOC 
XICONTHCONT 
llPNMt(L«l)*NBPL 

OCONMOCOMt I , /BLOAT (XI) t(BXXB*XXC0NTS2l6 . ) 
XTCNTi|TCNT6BL0ATnC0NT)/296 t 

HAT t«0 ARRAY OB COEFFICIENTS BACK INIO A IB X 16 BLOCK • 

CALL UNMAP(C#V) 

PERFORM INVERSE OB 2*0 TRANSFORMATION 0* A 16 X 16 BLOCK 
CHECK BOB POINTS NNICH ABC OUT*OB.RAnGE# 

00 460 Jil*H 
00 4}0 lit #M 

410 A(I) 4 CC!,J) 

00 TO (431*412)* ITT REPRODUCIBILITY OF THE 

411 CALL HAOD (A# B) ORIGINAL PAGE IS POOR 

00 TO 411 

432 CALL COST (A# B* *1) 

419 CONTINUE 

00 440 1M*M 
440 CCl*J>«B(t) 

00 460 Iit#M 
00 490 J*1«M 

490 A(J) • CCX,J) 

00 TO (491*492)# ITT 

491 CALL HAOD (A, B) 

00 TO 499 

492 CALL COST (A# B# •!) 

499 CONTINUE 

00 460 J*1 *M 

IB CB(J)#LT#MINP) B(J) ■ NINP 
IB CB(J),GT,MAXP) BCJ) ■ MAXP 
Mi(NM*t)*M*J 
460 D(I*K) ■ BCJ) 

400 CONTINUE 

AfTCB A 16 X NPL BLOCH OB DATA NAS BEEN RECONSTRUCTED* PUT IN 
BYTE ABBAY AND NBSTE ON UNIT NO# NB ONE LINE AT A TINE# 

00 420 Xil*M 
00 4|0 Jil*NPL 
IOUT(J)iO(I#J)60,S 
ISUN2 • I8UM2 ♦ IOUTCJ) 

410 CONTINUE 

NBITECNB) XOUT 

420 CONTINUE 
490 CONTINUE 

COMPUTE AVEBAGE BIT BATE* MEANS OB ORIGINAL* RECONSTRUCTED IMAGES 
ITCNTilTCNT/PlOATCNTB) 

PIXiNLXNE*NPL 
AMEAN1 ■ I SUM l / PIX 
AMEAN2 • ISUM2 / PIX 



MAM 


c 


NRXTE U»«0) NPl, MIM, NB# MAXP, MJNP# FIXB 

wRITKdfPO) ITCNT 

NRXTE C6 #6 1 1 APEANJ $ API AM 

RETURN 

34 F0RPAT(22X« » ADAPTIVE TRANSFORM C0CIN6 U81NG TMC’DXMENSXONAl HAOAMA 
,RO TRANSFORM'//) 

55 F0RMAT(2SX, 'ADAPTIVE TRANSFORM CODING U8IN0 TNO»DIMEnSIONAI COSINE 
, TRANSFORM*//) 

40 FORMAT ( * NPl • »NUM • '»XAtl6X, 'BAND NO, SI*// 

,l PAXP »SF5 t l,19X,'PlNP ■»,PS,1'17F''P1XB ■SF5,1/) 

60 FORMAT l ' AVERAGE BIT RATE • SF8,3»/) 

6! FORMAT ( • MEAN OF ORIGINAL IMAGE •• ,FBt3»26X» 'MEAN OF RECONSTRUCTED 
, IMAGE >SF6,3//) 

END 
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SUBROUTINE MAP(AfO) 


I 


r 


BAR CONVERT! A I* X I* COEFFICIENT MATRIX INTO A l«0 ARRAY IN A 
ZIOIA8 SEQUENCE « 


A • INPUT 1A X U BLOCK MATRIX 

• • OUTPUT ISA X t ARRAY IN ZI62A6 FORMAT . . 

t mfi f i tf tf ? f T t f f ft t ! flfftMH rtfM • I • • ♦ 

***************** 4 ** ********«**«*•*• »*«*****«**#*«»»••*•** *«**♦♦*•***♦* 


c 

c 


c 

c 


DIMENSION ACtAilA)# BflSA) 

BCt)lACI»l) 

6C2)lA(t»2> 

B(I)lMM) 

KNA 

LH 

TMIB PART CONVERTS THE UPPER TRIAnBLE OF MATRIX 
I CONTINUE 
JH 
I»l 

10 CONTINUE 

b ck > • a (I # J ) omc^ D M C ?!n m op THE 

IF<K a 6T a tlA) 60 TO 10 ORIGINAL PAGE IS POOR 

lll*t 
JUM 

IFCt a 6E a l) 60 TO to 
JUM 
III 

20 CONTINUE 
6(K)aA(t« J) 

HUI 

J|J«1 

KlNAt 

IF(K a 6T a llA> 60 TO SO 
IF(J a 6E a n 60 TO 20 
HlAl 
60 TO A 
CONTINUE 


10 


SA 


AO 


SO 


THIS PART CONVERT! THE LONER TRIANBLE OF MATRIX 
H2 

CONTINUE 

J*L 

IilA 

CONTINUE 

B(M)aX(IiJ) 

NaKM 

IF (K a 6T a 2S6) 60 TO AO 

m»i 

jum 

IF (J a LE a lA) 60 TO AO 
HIM 
JitA 

CONTINUE 






6<K)*A(I,J) 

!•!♦! 

K«K*t 

IF(K,GT,2S6) 60 TO *0 
IPCI,IC,I6> 60 TO SO 
ItHOl 
60 TO S4 
00 CONTINUE 
RETURN 

j1'TiT»tlfttfTlt*tnHft»mit*f»»«fTT>ti *6 I f Iff ■»»»» M • » t T t f if f Iff i I M 

ENTRY UNNAP (A# S) 

C 

C UNNAP CONVERTS TNE l«0 COEFFICIENT ARMY IN A ZIGZAG fORNAT TO 
C A 10 X 16 BLOC* NATRIX 

II K > I i ttt II Itn<f *M t rtMIIH If rf ttlf r | > I l« •' >TMM I | 'Ttltl t« If i I • I 

C * * 

A(1»2)*B(2) 

A(2»l)>0(3) 

KM 


C TNI6 PART RCC0N8TRLCT9 THE UPRER TRIABLE OP COEFFICIENTS 

100 CONTINUE 
J«t 
I«l 

110 CONTINUE 
A(t f J)«B<K) 

K*IU! 

IP (K,GT ( U6) 60 TO ISO 
!•!•! 

J«J*I 

IF CI.GE.l) GO TC 110 
J»L*I 
!■! 

120 CONTINUE 
A(I#J)«0(K) 

I ■ I ♦ I 
J»J*1 
KM*| 

IF (k.GT.IIO) GO TO ISO 

IF (J,Gl,l) GC TO 120 
1*1*2 
GO TO 100 


THIS PART RECONSTRUCTS TNt LOMER TRIANGLE OF COEFFICIENTS 
110 CONTINUE 
1*2 

no CONTINUE 
J»L 
I»10 

140 CONTINUE 
A(I#J)*B(K) 


1W» 



c 

c 


MM I 

If (*,OT,ifO> 00 TO 100 
!•!•! 

Ml 

If CJ*LE,U> 00 TO MO 

mot 

J»IO 

100 CONTINUE 
A(I"J)J|<K) 

Ulot 

*Rj«l 

RiMt 

If (R,OT 9 iOO) 00 TO too 
If <!,IE|U) 00 TO ISO 
knot 
00 TO ISO 
too CONTINUE 
RETURN 
ENO 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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SUBROUTINE HAOO(SPACE»mAC) 

C HARD COfS a FAST HAOAPARO TRANSFORMATION ON a 16 * l ARRAY 
C THE MATRIX 18 NORFAllICO 80 THAT THF FQNMARD AND INVERSE 
C HARRJN68 ARE THE SAME, 

C tRACI • INPUT ARRAY 

C HAD • TRANSFORMED OUTPUT ARRAY 


C 

real SPACE (16), 6100*5(8), BLOCKS (4t) 'BlOC*?C2),lPGM(e) 'HAD Oft) 

C 

**•«, 

IP6M(t)«l 
00 30 N*2,A 
1018PL*2**(N«2)*1 
IOEUTaO 

20 IPGMUOISPUmiT)** 

IDCLT*IDELTa 2** (N*l) 

IFODCLUIDISPL-B) 20,20,30 
30 CONTINUE 
C 

00 150 J*1,S 
L«J4J 

ISIPCM(J) 

GO TO (50,200,220,260), 1 
50 DO 60 1*1, » 

*»!♦! 

60 BLOCKS Cl )*SPACF(K«I) ♦SPACE (K) 

TO DO 00 1*1, « 

*«!♦! 

60 BtOC*6U)»HlCC*5(*-l)#Bl 0C*5(*) 

00 00 100 1*1,2 

*■!♦! 

ioo block? ( I )*nL 0 CN 6 (*«i) ♦blocks («) 

120 HAOa»l)*(BL0CK7(l)^BiCCK7(2))/XN 
150 MAO(L) ■ (fllOCK?(l).HLCCK7(2))/XN 
RETURN 
C 

200 BL0CK7 (DEBLOCKS M ) •BLOCKS (2) 

BLOCK?(2)«HLOCK6(«)-BLOC*6(3) 

GO TC 120 

220 00 210 1*1, 0,2 
*■!♦! 

SLCC*ft(l )SBL0C*5(K«1)»6LCCK5(K) 

210 BLOCKS ( I ♦l)*BL0C*‘6(K#2)-BL0CK5(K4l) 

GO TO 90 

200 DO 250 1*1, 8, 2 
*■141 

BL0C*5(l)*SPAC€(K»l )• SPACE (* ) 

2S0 BL0CK5(1«!)«SPACF (*♦? )#8PACE (*♦! ) 

GO TO 70 


SUBROUTINE COST (INPUT# C080UT, ITYPE) 


! 


C GENERALIZED PAST COSINE TRANSPORN ROUTINE 

C THERE IS A CHECK HADE SO THE TABLE IS ONLY CALCULATED THE PIRST TINE 
C MAXIMUM SIZE ARRAY a SB* ELEMENTS 
C 

C INPUT a INPUT ARRAY 
C COSOUTa COSINE TRANSPORMEO ARRAY 
C ITVPEl la PORWARO TRANSPORN 
C • !* INVERSE TRANSPORN 

C I9IZE a NUMBER OP ELEMENTS IN INPUT/OUTPUT ARRAY 

C*‘** ****** ***** ****^*****‘******‘*‘' 

REAL INPUTC!) 

DIMENSION COSOUT(l)# COSINE (IB)# SINEUS), OUTPUT (6A), SUB) 
LOGICAL PIRST /.TRUE,/ 

DATA ISIZE# MM /IB# 5/ 


IP C,NOT, PIRST) 00 TO 951 

ISIZEPalSIZEPR 

SQRT2*8QRT(2 a 0) 


reproducibility of the 
ORIGINAL PAGE IS POOR 


C COSINE TRANSPORM TABLE GENERATION 
Y«5,l«i5R27/2,0/PL0AT(ISIZE> 

CCaCOS(V) 

SCaSIN(V) 

COSlNE(l)aCC 
SINECDaSC 
JJ*ISIZE*2 
DO 950 1*1 «JJ 

C09!N|(IU>aC0S!NE(n«Ce • SINE(I)*SC 
950 SINEdtl )a8INE(I)*CC ♦ C0SINE(I)*SC 

CALL PDPT (OUTPUT# MM, |, 9, 0, IPERR) 

PIRST a , PAUSE, 

C 

C BRANCH TO DO FORWARD OR INVERSE TRANSFORM 
951 IP (lTYPE a EQ,«l) GO TO BBS 
C 

C FORWARD TRANSFORM 

OUTPUT ( I )«INPUT (1 ) 

OUTPUT (2)*0,0 
DO 900 1*2, ISIZE 
OUTPUT (I*2»l )■ INPUT (I ) 

OUTPUT ( I8IZEF+3»I*2)a0,0 
OUTPUT (ISIZEF*«*t*2)*0 a 0 
900 OUTPUT ( I*2)*0 a 0 

OUTPUT (2* ISIZE*1 )*0, 

OUTPUT (2*1 81 ZE*2)*0, 

C 

CALL MDPT (OUTPUT, MM, |, S, 2*ITYPt, IPERR) 


COSOUT(l) ■ OUTPUT ( 1 )*8QRT2 
DO 610 1*2, ISIZE 

C080UTU) • 2,0* (OUTPUT (2*I*l)*C08INE(t*|)*0UTPUT(2*l)*8INEU«l)) 
RETURN 




c 

C INVERSE TRANSFORM 
888 aU** INPUT C 1 ) /SORT 2 

CTB8UN*n ( 0-l,0/Sf9RTd)/FL0AT(X8tZE) 

C 

OUTPUT(n«INPUT(l) 

OUTPUT (2)*0#0 
00 910 1*2# ISIZE 

OUTPUT (2*1-1)* INPUT (I)*C08INE( 1*1) 

OUTPUT <ISI*EF*3»I*2)«INPl!T(\)»‘0S!NE(I»l) 
OUTPUT ( ISlZEFf«*I *2)*INPUT (>*1*1 ( I- 1) 

910 OUTPUT (2*1 )* -CINPUT(I)*SIMEU»U) 

OUTPIT(2*ISIZE41)*0, 

OUTPUT (2* ISIZE 42)*0 t 
C 

CAUL POFT (OUTPUT, HM, 1# S# 2*ITVPE, IFCRR) 
C 

oc 811 i*i#xsm 

811 COSOUTCX) « OUTPUT (2*1*1 ) 4 CT 
RETURN 
END 
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j 







c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



) 

I 

SUBROUTINE MDFTCA,mC,N0#8# IPS# XFERR) 

MDFT# MULTI-0IMEN810NAL FINITE POURIER TRANSFORM 

MDPT TOGETHER WITH MPORT !8 A MODIFICATION OP PORT 
A SUBROUTINE SUPPLIED BY J,W# COOLET OP IBM, PORT 
COMPUTES 0NE»DIM*N8!0NAL FOURIER TRANSFORMS# MDFT* 

MPORT GIVES TRANSFORMS IN UP TO SIX DIMENSIONS 

A IS A COMPLEX ARRAY WITH DIMENSION A(NN(|)»,,,,NN(ND))# 

WHERE NN(K)a2**MC(K), A IS TO BE SET BY THE USER# 

MC IS A VECTOR SET BV USER. O.LT.MC CK) ,LE, U FOR 
R>!»2,##,»N0# IN AOOITION MCCl)*MC(2J*###4NCCND)#Le»l)# 

(IP IPSwO THE 13 IN THE TWO ABOVE COMMENTS CAN BE REPLACED BV U#) 

IN THE COMMENTS WHICH FOLLOW# MaMAX(MC(*))# 

NO IS THE DIMENSION OF THE COMPLEX ARRAY a, NO IS 
8UPPLIE0 BV THE USER# 

S IS A VECTOR S( J)a S!N(2*PI«J/NP )» Jal»2#####»NP/4wl, 

WHERE NPaMAXCNN(K)), S IS COMPUTED BY THE PROGRAM, 

IPS IS A PARAMETER TO BE BET BY USER AS FOLLOWS* 

IFSao TO SET NPa 2 **M AND SET UP SINE TABLE# 

IFSal TO SET nbnp«2*am» SET UP SIN TABLE# AND CO FOURIER 
SYNTHESIS# THE ARRAY A(JC1),4C2),,,,#J(ND)> IS REPLACED BV 
X(J(l)#J(2)»##,»J(K0)>a SUM OVER 0#LE#K(|),LC#NN(t)*t# 
0,LE,K(2) ( LE,NN(2)»l # ,, a ,0,LE,N(ND)#LE,NN(NO).t OF 
A(K(l),K(2) M , M K(ND))*(EXP(!*P!*j(i)*K(l)*!/KN(l)))* 
(EXP(2*PUJ(2)*K(2)*I/NNc2m*###;(EXP(2*PUJ(ND)*K(ND)*I/NN(.N0))) 
0 a LE#J(l)#LE,NN(l)*l#0#LE‘#J(2)#LE,NN(2)«l#,#,# 

0#LE# J (NO) #LE #NN(NO)*l # WHERE la8QRT(*l), 

THE X»S ARE STORED WITH RE XCJ(l) # J(2),,,,,J(ND)) IN CELL 
u2*tjn)*j(2)*NN(i)o(3>*NN(t)*NNc2)*##. 
♦J(ND)*NN(n*NN(2)ft#,#*NN(ND*S))# *NO 
IM X(J(t)##,*#J(ND)) IN THE CELL FOLLOWING 
RE X(JU)»#.##4(N0))# 

THE A IS ARE STORED IN THE SAME MANNER# 

IFSa*t TO SET N«Npa2**M,8ET UP SlN TABLE# AND DO FOURIER 

ANALYSI8#TAK!NG THE INPUT ARRAY A AS A AND 

REPLACING IT BY THE A SATISFYING THE ABOVE FOURIER SERIES# 

!FS>+2 TO DO FOURIER SYNTHESIS ONLY# *!TM A PRE*COMPUTED 8# 

IFSa.2 TO DO FOURIER ANALYSIS ONLY# WITH A PRE.COMPUTED S# 

IFERR is SET BV PROGRAM TO* 
aO IF NO ERROR DETECTED# 

at IF THE MC(K)(S 00 NOT SATISFY THE CONDITIONS ABOVE# 

OR NO DOES NOT SATISFY t •LE#NO»LE#S# 

■•I WHEN IFSat #0»OR *t AND THE S TABLE NEED NOT BE COMPUTED# 

■*2 WHEN IFSB2 OR *2 AND THE S TABLE NEED BE COMPUTED# 

REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


J 
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n no o ooo nnnnonnnnonrmo 


AS STATED ABOVE* MC(l)AMeC2)7, t ,6MC<ND),LE,IS,XP THE 
COMPUTER USED HAS A GREATER STORAGE CAPACITY THAR THE 
IBM 7094 THIS MAXIMUM MAY BE INCREASED BY REPLACING 
13 IN STATEMENT 6 MELON MTH M4L0G2 N*N«ERE N IS 
THE MAXIMUM NUMBER OP COMPLEX NUMBERS ONE CAN STORE 
IN HIGH SPEED CORE. THE DIMENSION Op KE MUST eE SET 
EQUAL TO M+t IN BOTH MDFT ANO MPORT . THE DO LOOP 
JUST BEFORF STATfMpNT 40 MUST EXTENO TO M*J INSTEAD OF 12. 
THE 14 IN STATEMENT 105 MUST SE CHANGED TO Hp| f 
IN MFORT ONE MUST CHANGE THE EQUIVALENCE STATEMENTS FOR 
THE KE • S ANO ADD MORE 00 STATEMENTS TO THE BINARY SORT 
JUST ABOVE STATEMENT 28. 

DIMENSION A(1),S(1),mCC1) 

DIMENSION NF (7)»NN(6) 

DIMENSION KE ( 14) 

EQUIVALENCE (KEm*JC) 

DATA NF ( 1 ) /2/ * NPD/O/ 

NOTE THAT THE NAMED COMMON.CFORTC# IS USED FOR 
COMMUNICATION BETWEEN MDFT AND MFORT, 

COMMON /CFORTC/M.N r NT *KS(KS2*KST*KE 

NDOaND 

IF (NOD) 110*110*2 
2 IF (N0.GT.6) GO TO 110 

IFSSalFS 
M8«0 
KM*t 

DO 10 Ksl.NDD 

MaMC(K) 

IF(M) 110*110*4 
MS«MS*M 

IF (MS.GT * 1 3) GO TO 105 
8 NN(K)«2**M 

NF(K4l)lNF(K)#NN(K) 

10 IF(NN(K),GT,NN(KM)) kmsk 
IFERR*0 

IF ( I ABS ( IFSS ) |LT ,2 ) GO TC 160 
IFCNPD.LT.NNCKM)) GO TO 150 
15 NT0T2*NF(NDD*1) 

IF ( IFSS) 20*110*10 



DOING FOURIER ANALYSIS SO DIVIDE BY NN(1)*NN(2)«, m *NN(ND) Ak>C 
CONJUGATE* 

20 FNBNTCT2/2 

00 25 I«1*NT0T2*2 
A ( I )sA ( I ) /FN 
25 A(I«1)«»A(N1)/FN 

C 

C BEGINNING OF LOOP FOR COMPUTING MULTIPLE BUM 
30 DO 50 K«1*NDD 
M«MC(K) 

N«NN(K) 


L 


150 


* 3 * S 




w 



\ 



55 

40 


50 

C 

C 

TO 

C 

C 

TS 

00 

10S 

tio 

tso 

160 


C 

C 

200 


205 

C 

c 

e 

c 


c 

c 


220 


K8aNF(K) 

KGlaKOat 
K82«2*K0 
K$T»K862 
KE(l)BN4(K«t) 

DO 39 L*2#M 
Kea>iKea>i)/2 
00 40 L9M.12 
KE(L*1)"K8 
DO SO Jal #NT0T2« JO 
K88aJ*K81 
DO SO faj#K88» 2 
CALC M40RT(A(X)«8) 

ENO OF 1004 404 COMPUTING MULTIPLE 0U* 


REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 


14(1488) 7S*tt0*t00 

DOING 40U4IER ANALYSIS* REPLACE A BV CONJUGATE. 

00 80 |a2#NT0T2»2 
A(I)a*A(X) 

60 TO 100 

14 ( (XF8.EQ«0) ,ANO, (M8.EQ.t4) ) GO TO 8 

X4ERR41 

GO TO tOO 

X4ERRa«2 

NPDaNN(KM) 

MaMC(NM) 

14 (NP.GE.NPO) |4ERRa«l 

MAKE TABLE 04 8(J)aSIN(2*Pt*J/NP), J»l#2. , ,NT*1 ,NTbnP/4 

NPaNPD 

NT8NP/4 

MT*Ma2 

!4(MT) 260*260.205 
THETAa, 7853981633974483 

TMETA«PX/2**(Ltl) 40R L«1 
J8TEP a NT 


J8TEP a 2**C MT»L«1 ) 40R Lai 
JD14 a NT/2 


J0I4 » 2**CMT»L) FOR Lai 
8CJDI4) • OtN(TMETA) 

14 (MT»2)260*220»220 
00 290 L«2*MT 
THETA a THETA/2, 

JSTEP2 a J8TEP 

J8TEP a J0I4 

JDI4 a JDX4/2 

8(J0XF)a8XN(THETA) 

JClaNT.JOIF 

8CJC1 )aC08 (THETA ) 

JLASTaNT«J8TEP2 

X4CJLA8T»J8TEP)2S0*230,830 


l 


& 
c . 

*■ 

I 

I 


k 
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ISO 00 140 JtJOTCOf JlA|T»aiTM 
J0«J*JD1F 

240 $(J0>«S(JJ*3(JCn*8(J0IF)*l(4C) 
290 CONTIfcUC 
200 12(1418) |9 #100*19 

100 ftlTUft* 

KNO 
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SUBROUTINE MFORT ( A » 9 ) 



MRORT# MOOXFXEO VERB ION OR FORT FOR USE 
AS SUBROUTINE BY MOFT 

OXMENSXON A(|),8<1) 

OXNENSXON NE(U) 

conmon/cfortc/n#n,nt#ks#kss#kst#ke 

EQUIVALENCE (KE(13)flU)iCI(CCit)*Kn»<KC(U)'K3)»CKCClO)*K«) 
EQUIVALENCE (NEC *)«KS)»(KEC S),KA)*(KEt 7)»K7)»CKE( 0J#KB) 
EQUIVALENCE CKCC B)#NQ)»<RE(A)#KlO)# (KE(3)»K1 1)» (KC(S)#KtS) 
EQUIVALENCE (KE(1)»K13)# (KK(|),N2) 


SCRAMBLE A, BY SANDERS METHOO 
NOTE EQUIVALENCE OF KL ANO KECU*L> 
BINARY SORT* 

IJ*2 

00 30 Jl«S»Kt«K8 
DO 30 JE>Jt«K|»Kl 
DO SO J3«J2»K3,K2 
DO 30 J«0J3«K4»K3 
DO 30 J9»J« f KS»K0 
DO SO J0«J5«K*,K§ 

DO 30 J7«J6#K7#KO 
DO 30 J8«J7»KS»K7 
DO 30 J9«J8»Kt # F8 
DO 30 J10aJ9,K10»K9 
DO 30 JU>Jt0»Klt v K10 
DO 30 JUaJUfKlSfKU 
DO 30 J!>Jl2*Kl9f K|2 
XF(IJ«JI)26«30|30 
T»A(IJ*| ) 

A(IJ.J)«A(JI*n 

A(JI*1)«T 

TaA(IJ) 

A(IJ)«A(JI) 

ACJ1)»T 




lJ*tJ*KS 


SPECIAL CASE* L«t 
DO 40 I«2»N2 # K82 
K8!«I«KS 
T«A(i*n 

A(I*i)»T#A(K8I*i) 

A(K8I*!)«T*A(K8X*t) 

T«ACI) 

Acn*T+A(Ksn 

A(K8I)aT*A(KSI) 

IF (M.Lf.l) 60 TO l 

SET FOR L«2 
LEXP1*K8 


LEXPt*KS*2**(L«2) 

LEXPa«*LEXP! 
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c 

C LEXPSK8*2**1 

NPlaNT 
C 

C NPL»NT*2**<2»L> 

c NT*NP/«#KP 18 DEFINED XN C 0 HMEKT 8 IN *OFT, 

DO 830 L»2*H 
C 

C SPECIAL CASE* J»0 

DO 80 Xa2,N2,LEXP 
n»i ♦ iexpi 

X2«XH LEXPl 
XI amiEXPl 
TaA( |*l ) 

A(X*1> • T ♦A(I2.n 
A(I2«1 ) a T*A(I2*n 
T *A(X) 

A ( 1 ) a T4A(J2) 

A C 12 ) » T-AC12) 

Ta «A(13) 

TI a A(I3*l) 

A ( 13*1 ) • ACX!»1) • T 
A ( 13 ) a A ( 1 1 ) • TI 

A ( I t*t ) * A C 1 1 *1 ) 4T 
60 A(It) a A ( 1 1 ) tTI 

IF CL *2 ) 120,120,00 
90 KLASTaN2*LEXP 
44*NPL 
C 

DO 110 JaKST, IEXPI, KS 

NPJjsNT*JJ 

UP*8 (NPJ J ) 

UlaS(JJ) 

Il.A8Ta44Kl.A8T 

C 

DO 100 la 4, HAST, (.EXP 
Ilal4UEXPl 
X2aI|4tEXPi 
I3a!24tFXPl 
TaA(I2.1)*UR*A(I2)*UI 
TIaA(12.1)*Ul4A(I2)*UP 
A(I2*i)»A(I»l)*T 
A(I2 ) »A ( I ) * TI 
A ( I« 1 ) »A (I»l )4T 
A ( I ) »A ( I) 4TI 
Ta*A(I3«l)*UI*A(I3)*UR 
TIaA(I3*i)*U«»A(I3)*Ul 
A(I3*t)aA(n«n»T 
A C X 3 ) ■ A ( 1 1 )»TI 

AC X 1*1 )*A ( 1 1*1 ) 4T 
100 A(Ii) * A ( 1 1 ) 4TI 
C END OF ! LOOP 

c 

110 44a444NPL 
C END OF 4 LOOP 


15 ** 


c 

tio lExnaatiewt 

IEXP • IHEXR 
ISO NRLtNH/i 

e end or i cooo 
c 

I RETURN 
END 


REPRODUCIBILITY OP THE 
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COMPRESSION BY A HYBRID TECHNIQUE 


I. NAME 
HYBRDC 

II. DESCRIPTION 

HYBRDC combines a transform system and an adaptive DPCM (dlfferentiel 
pulse code modulation) system to compress an image. This hybrid 
method consists of an orthogonal transformation (HADAMARD or COSINE) 
In the vertical direction followed by a DPCM in the horizontal 
direction. The resultant coefficients are adaptively quantized and 
the Image reconstructed by performing Inverse transformations. The 
Input image is divided into blocks consisting of 16 records so that 
only a I6*m row portion of the image will be processed. The bit rate 
for each row of the block remains constant and is input by the user. 

III. CALLING SEQUENCE 

CALL HYBRDC (IV, I0UT, D, D, DIF) - Cosine Transformation 

CALL HYBRDH (IV, I0UT, D, D, DIF) > Hadamard Transformation 

where IV, I0UT, D and DIF are arrays. The array dimensions required 

are: 

'V (**, NPL) l . 

I OUT (NPL) f byteS 

D (16, NPL) ) . 

OIF (NPL) / “° rds 

where NPL is the number of pixels per scan line. 

IV. INPUT/OUTPUT 
1. INPUT 

The input data should be on logical unit 10 as a data set con* 
sisting of NLINE records and NPL pixels per record with four 
channels per pixel. Each data value has a length of one byte. 

Initial parameters needed to process the image are transferred 
from a driver program through the following common statement: 
COMMON NB, NLINE, BIT, NPL 
where 

o NB is the band currently being processed (integer) 
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o NLINE Is the number of records In the Input Image which will 
be processed. It must be an Integer multiple of 16. (Integer) 
o BIT contains the bit rates used to quantize the DPCM 
differences for each row of a block of 16 x NPL pixels 
(Integer, 16 locations) 

o NPL Is the number of pixels per record which will be processed 
(Integer) 

The bit rates to be Input for each HSS spectral band for 5 
compression ratios are given In the following table. The rate 
Is specified for each of the 16 transform coefficients. 


XM’RorwciBiun of tor 

original page is pom 


BIT ASSIGNMENT FOR HYBRID DPCM QUANTIZER 


BIT 

RATE 


BAND 

NO. 


COEFFICIENT (ROW) NUMBER 


1 2 3 4 S 6 7 8 9 10 11 12 13 14 15 16 


4 bits/ 
sample 


1 

2 


3 

4 


7555444433 

7555554444 

7555555444 

7554444333 


3 bits/ 
simple 


1 

2 


6444333322 

6444443333 


3 

4 

2 bits/ 
sample 1 

2 


6444444333 

6443333222 


533322221 1 

5333332222 


3 5 3 3 3 3 3 3 2 2 2 

4 5332222111 


I bit/ 
sample 


1 

2 


4 3 2 2 2 1 1 1 0 0 
4 3 3 2 2 2 2 1 1 1 
4 3 2 2 2 1 1 1 0 0 
4 2 2 1 1 1 0 0 0 0 


3 3 3 

4 4 4 
4 4 3 
3 2 2 


2 2 2 

3 3 3 

3 3 2 

2 1 1 


1 1 1 
2 2 2 
2 2 1 
1 0 0 


0 0 0 
0 0 0 
0 0 0 
0 0 0 


3 3 

4 4 
3 3 
2 2 


2 2 

3 3 
2 2 
1 1 


1 1 
2 2 
1 1 
0 0 


0 0 
0 0 
0 0 
0 0 


2 

4 

4 

2 


1 

2 

2 

1 


0 

1 

1 

0 


0 

0 

0 

0 


3 

4 


















2. OUTPUT 

The Input parameters and the means of the original and reconstructed 
images are printed. The reconstructed image for band NB is written 
onto unit NB. 

DESCRIPTION OF SUBROUTINES 

The storage requirements and the functions of the non-system 
subroutines used are given in the following table. 


DESCRIPTION OF SUBROUTINES FOR HYBRID 
DATA COMPRESSION 


STORAGE 

BYTES 




Read 16 line blocks from input 
data set, call Hadamard or 
Cosine transform on columns, 
call DPCM on rows of coefficients, 
reconstruct the image by calling 
for inverse transformations 

Perform mapping to obtain 
uniform distribution of co- 
efficients, quantize to specified 
number of levels, do inverse to 
reconstruct coefficient values 

Hadamard transformat ion of a 
string of 16 pixels 

Cosine transformation of a 
string of 16 pixels 
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The linkages of the subroutines ere given In the following table 
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i* 
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LINKAGES OF SUBROUTINES FOR HYBRID 
DATA COMPRESSION 


HYBRDC 

HADD 

(HYBRDH) 

COST 


osa 


OMAN 

COST 

MDFT 

MDFT 

HFORT 


kkprod 

ORIGINAL 


JjCIBlLlTY OP THE 
PAGE IS POOR 


VI. PERFORMANCE SPECIFICATIONS 

1. STORAGE REQUIREMENTS 

The program requires 60K bytes of storage when operating on e 
LAC IE sample segment. 

2. EXECUTION TIME 

The processing speed Is highly dependent on the type of transform 
applied and somewhat dependent on the bit rate, being slower at 
higher bit rates due to the quantization of a greater number of 
coefficients. Average speeds from several computer runs are 
given In the following table. 


PROCESSING SPEEOS FOR HYBRID COMPRESSION 
(A bend pixels/second) 


BIT RATE 

COSINE SPEED 

HAD AWARD SPEED 

1/2 

283 

8*9 

1 

263 

696 

2 

225 

53* 

3 

222 

509 

* 

225 

511 


VII. METHOD 

A one-dimensional transform method end a one-dimensional DPCM are 
combined In HYBRDX to perform data compression. Initially 
the Input image is divided Into blocks consisting of 16 rows of 
pixels. Correlation factors for the coefficients In each row of the 
block are assumed to be as follows: 
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COEFFICIENT NUMBERS 

CORRELATION FACTOR 

1, 2, 3, * 

15/16 

5, 6, 7 , 8 

3A 

9. 10 16 

1/2 


A one* dimensional orthogonal transformation (Hadamard or Cosine) is 
performed on the columns of the 16 x NPL block of data, following 
this transformation, a one-dimensional DPCM Is performed on each row 
of the block. This is accomplished by first computing the mean of a 
row and the deviation of each point in the row from the mean. Next, 
an error Is predicted for each point by computing the difference 
between the deviation of that point and the previous deviation 
multiplied by the correlation factor for that row. 

After the DPCM is complete, the variance of the predicted errors is 
computed for a row. Using this variance, the scaling factors used to 
map the coefficients in the row Into a uniform probability density 
function are computed. 

The difference between the deviation of a point from the mean of the 
row and the predicted error for the point is quantized. Using these 
quantized values, the transformed coefficients are reconstructed. 

The inverse of the orthogonal transformation is performed to complete 
the reconstruction of the image. The bit rate for each row of the 
block remains constant and is input by the user. A zero bit rate is 
accepted as a valid input. 

A flow chart of the hybrid compression method is given in the following 
figure. 
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Figure 13. Flow Chart of the Hybrid Compression Method 






VIII. COMMENTS 


Only a 16% row (m an Integer) segment of the Input image will be 
processed. 

IX. TESTS 

Reconstructed Images were examined using Image means, mean squared error, 
plots and histograms of the reconstructed Images, and plots and histo- 
grams of difference Images. An example of a difference Image follows. 

X. LISTINGS 

Listings of the subroutines follow. 
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SUBROUTINE HVDROC <XV# TOUT, 0# E, DIF) 

SUBROUTINE HYBRID USES A HYBRID METHOD TO COMPRESS AN IMAGE# 

THIS METHOD CONSISTS OP A |«D ORTHOGONAL (HADAMARD OR COSINE) 
TRAN8PQRH IN THE VERTICAL OtRfCTXCN FOLLOWED BY A 1*0 ORCH IN THE 
HORIZONTAL DIRECTION# THE TRANSFORMED COEFFICIENTS ARE 
ADAPTIVELY QUANTIZED# USING THESE COEFFICIENTS# THE IMAGE IS 
RECONSTRUCTED BY DOING INVERSE TRANSFORMATIONS# 

NFL • NUMBER CF PIXELS PER LINE 
ITT • TYPE OF ORTHOGONAL TRANSPoHM 
t • HADAMARD 2*C0»INE 

A • INPUT 16 X l ARRAY 
B • TRANSFORMED 16 X 1 OUTPUT ARRAY 
MJKP • MINIMUM VALUE OF INPUT IMAGE 
MAXP • MAXIMUM VALUE OF INPUT IMAGE 

logical units 

10 • INPUT PICTURE (BYTES) 

NS * RECONSTRUCTED PICTURE (BVTF8) 

' » t Iff • ll • t!t M | T» » t H I I I • f » I Tt t* 'f III I • t T t t I T I 1 ' t M f T tT » Y I * • 


DIMENSION IVOI'NPI), ICUT(nPL)# 0(16#NPL), E(16,NRL)# OXF(NPL)# 
# A ( 16) » 0(16)# RHO (16) 

LOGICAL*! IV# 10UT 

REAL MeAN#MAXP#MlNP,MAX(4)/)*U7#0#63#0/#MlN(A)/4«0 ( 0/ 

INTEGER BIT( 16) 

COMMON KB# NLINE# HIT# NPL 
OATA M /16/ 

ENTRY FOR COSINE TRANSFORM 
ITT«2 

«RXTE(6»45> 

GO TO 10 

ENTRY FOR HADAMARD TRANSFORM 
FNTRV HYBROH (IV, IUUT, 0, E# OIF) 

I TT*1 

MRJTE (6#46) 

INITIALIZE COUNTERS# SIT IMAGE PARAMETER 
10 CONTINUE 
ISUMlaO 
ISUM?»0 
NBPV»NLINE/M 
ANPL«NPL 
MAXP « MAX(NH) 

MINP • M]N(NB) 

CHECK FOR INDEX OF FIRST ZERO BIT RATE 

KZ IS THE POINTER FOR THE LOCATION Of THE FIRST ZERO BIT RATE 
DO 25 I«1#M 

IF ( BIT ( I ) ,NE, 0 ) GO TO 25 
KZ«1 

GO TO 30 
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25 CONTINUE 

KfaM4l 

SO CONTINUE 

C 

C STOKE CORRELATION FACTORS FOR EACH RO» OF TRANSFORMED DATA 
00 50 tft»* 

RHO<tmS,/td. 

AH0U44)a3,/4. 

RMQ(S4S)*0«9 
50 RH0CX4II) *0,5 

C 

C READ IN 16 LINES OF OATA# PICK OFF DESIRED SAND AND STORE 
C IN D ARRAY 

DO 500 NVtl'NBPV 
DO 125 I»i,M 

read(IO) iv itmwi^UvMLiry op the 

DO 120 J*t«NPt ORIGINAL PAGE IS POOR 

XIV a EVENS# J) 

0(1# J) a IXV 
ISUMi a XSUP1 4 XIV 
120 CONTINUE 

125 CONTINUE 

C 

C PERFORM EITHER A HAOAMARD OR COSINE TRANSFORM ON COLUMNS OF 0 



DEPENDING ON THE VALUE 
00 160 JalfNPU 
DO 130 X«1 »M 

OF ITT 

ISO 

A ( I J aO C I # 4 ) 



CO TO (131# 132 ) # 

ITT 

111 

CALL MAOD (A# B) 
CO TO 135 


1S2 

CALL COST (A, B# 

1) 

135 

CONTINUE 



D(I»J) at .... .TRANSFORMED DATA 


00 140 Ial»M 


140 

D(I#J)aB(I) 


160 

CONTINUE 



C DO DPGM ON RONS OF ARRAY 0 

e COMPUTE THE MEAN OF EACH RON OF ARRAY 0 AND THE 

C DEVIATION OF EACH POINT IN THE RON FROM THE MEAN 

DO 350 IR1»M 
SUMaO'O 


DO 220 Jal,NPL 
8UMs8UM4D(I#J) 

220 CONTINUE 

MEAN • SUM/ANPL 
IF ( I ,6E, KZ ) CO TO 300 
C 

C DIF (>))(•••• it • (ZERO CENTERED TRANSFORMED OATA, 
DO 225 Jal,NPL 
DIF (J) a 0 < I # J) • MEAN 
225 CONTINUE 


i 

i 


i 


1 
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C E(I, J) • « • , , # *DIFFERENCE BETWEEN THE DEVIATION AND THE 
C PREVIOUS DEVIATION MULTIPLIED 8V THE CORRELATION PACTOR 

eu#n»o,o 

00 240 Ja2,NPL 

240 E(l,J)«OIP(J)-DIP(J.n*RHO(X) 

C 

C COMPUTE THE VARIANCE OF THF ERROR AND THE SCALING FACTOR 
PAaO.O 

DO 250 J*1»NPL 
250 PA»PA*E(X#J) 

PAaPA/ANPL 

PA«0,0 

DO 240 J»I»NPL 
PA«PA«(I(I»J)-PA>**2 
240 CONTINUE 


SGH«SQRT (FA/ANPL) 

CALL OSO (5,0, SGH) 

LEVEL a 2**(BIT(I>»1) 

C 

C QUANTIZE DEVIATION FROM THf MEAN FOR THE FIRST SAMPLE 
AF»DIP ( I ) 

CALL QUAN (AF, LEVEL, EG) 

EE • EG 

Edit) a EE ♦ MEAN 

ADAPTIVFLV QUANTIZE THE DIFFERENCE BETWEEN THE DEVIATION FROM 

the mean and the prfoictfo value* ado the predicted value to the 

GUANTIZFD OUTPUT, FINALLY, ADO BACK IMS MEAN, 


DO 520 J»2,NPL 
AF a DIF ( J) • RHO(X)*EE 
CALL QUAN (AF, LEVEL* EG) 

EE a tQ ♦ RHO(I)*EE 
f(I,J) a EE ♦ MEAN 
520 CONTINUE 

GO TO 550 
C 

C OUTPUT FOR CA8E OF ZERO BIT RATE 

500 DO 5)0 IaK7,* 

DO 510 Jal.NPL 
E (I * J)»MEAN 
510 CONTINUE 

550 CONTINUE 

C 

C DO INVERSE l*r HADAMARD or COSINE TRANSFORM 
DO 450 J» 1 , NPL 
DO 410 Ja 1 , M 

410 A(I)aE(I, J) 

CO TO (411,412), ITT 

411 CALL HA0D (A, B) 

GO TO 415 

412 CALL COST (A, 6, •!) 

415 CONTINUE 

C 

C D(I,J), RECONSTRUCTED OATA, 


c 


c 

c 


c 


c 


oo «ao t«i#H 

IF (BCn.lT.HIMP) BCD • HINP 
IP CB(X).OT.MAXP) B(X) • MAXp 
BIO 0(1# J> * BCD 

BBO CONTINUE 


BBO 

B90 

BOO 


DO BOO iBl.M 
00 BBO Jal.NPL 
XOUT(J>bD(!.J)«O.B 
I8UHI a X8UHI ♦ SOUTH) 
CONTINUE 
NRITE(NB) IOUT 
CONTINUE 
CONTINUE 


reproducibility op the 

ORIGH 'AL PAG I 1 ,' IS Poor 


COMPUTE MEANS OP ORIGINAL AND RECONSTRUCTED IMAGES 
PlXaNLINEANPL 
AMEAN1 i 1SUMI / PtX 
AMEAN2 a XSUME 7 P|X 


NRITE(B#B3) BIT 

NRITC(*#BO) npl#nline#nb#maxp#minp 
NR|TE( 0#B1) AMEANt# AMEAN2 
RETURN 


BO PORMATC NPl at f tS«lSX#'NLXNE a » , IB# |BX# (BAND NO# ' # 12# IBX# (MAXP ai 
# »PB# 1 # 15X, (MINP a* »F6. I/) 

Bt FORMAT (I MEAN OP ORIGINAL IMAGE at#pG,|#BOX# •MEAN OP RECONSTRUCTE 
#0 IMAGE a(#F8,S//) 

03 FORMAT ( • BIT RATES • #1612#/) 

OB P0RMATC20X# (HYBRID METHOD USING A 1*0 COSINE AND A UD OPCN TRANSP 
,ORM»//) 

BO P0RMAT(2SX# 'MYBRIO METHOD USING A J*D HADAMARO AND A 1*0 DPCM TRAN 
.SFORM •//) 

END 
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CLUSTER CODING ALGORITHM 


I. NAME 
CCA 

II. DESCRIPTION 

The data set Is partitioned Into arrays of a specified size, and 
each array Is clustered Into the required number of clusters. The 
data Is reconstructed by replacing the original data with the closest 
cluster centroid. 

III. CALLING SEQUENCE 

CALL CCA (A, B, NREC, NPIX, NFEAT, LXL, NXN) 
where 

A, B are work arrays dimensioned {k, NPIX) and (LXL, NPIX, k) bytes 
respectively, 

NREC, NPIX are the number of records and the number of pixels per 
record in the data set, 

NFEAT is the number of clusters to be found in each block of data, 
LXL, NXN are the length (records) and width (samples) of the data 
blocks. 

IV. I NPUT/OUTPUT 

1. INPUT 

The input to this program is a sequential data set on logical 
unit 10, having NREC records each NPIX k-band pixels long. 

2. OUTPUT 

The output is the reconstructed image, written in the same format 
as the input. 

V. DESCRIPTION OF SUBROUTINES 

No additional subroutines are required. 
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VI. PERFORMANCE SPECIFICATIONS 


.4 


E. 


I 


Sr" 




STORAGE 

The subroutine occupies 12864 bytes of storage. 


OHIGiNAL PAGE ISPQOft 


2. EXECUTION TINE 

For a LAC IE sample segment (117 x 196) the execution time on the 
IBM 360/75 Is approximately 30 seconds. 

VII. METHOD 

The multlspectral data is first divided into blocks of the specified 
size. All of the unique data vectors In the block are then found. 
Initial cluster centroids are chosen at equal intervals in the table 
of vectors. Then all samples are assigned to the cluster containing 
the closest centroid. The centroids of each cluster are then replaced 
by the center of mass of samples in that cluster. This procedure is 
repeated for two iterations. The next step is to replace each data 
vector with the closest cluster centroid. The cluster numbers are 
stored in an array at location numbers corresponding to the vector 
table locations. Each block of imagery is then reconstructed by 
obtaining the cluster numbers from the array. 


VIII. COMMENTS 

The program Is dimensioned for a maximum of 32 clusters per block. 

IX. TESTS 

The reconstructed imagery has been examined visually and by computing 
means, variances, and mean squared errors. Data blocks have been 
printed to verify the occurrence of the correct number of cluster 
centers. 


X. LISTING 

The listing of the routine follows. 
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Figure 15. Simplified Flow Diagram for Cluster Coding Algorithm (CCA) 
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SUBROUTINE CCA (A# B* NREC* NPIX# NF£AT* LXl# NXN) 

CLUSTER COOING ALGORITNP»BREAMB IMAGE INTO LXl BY NXN 
ARRAYS AND CLUSTERS EACH ARRAY INTO A HAXINON OF 
3? FEATURE 8# WRITES OUT A NEW TAPE WITH ORIGINAL 
DATA REPLACEO BY CLOSEST Mf AN CLUSTER CENTER 


1HE INPUT VARIABLES ARE AS F0LL0W8I 
AsRFCORO OF UATA TO BE PUT INTO HCI#J) FORMAT 
H(J*J)«OATA ARRAY FOR RECORD X* PIXEL J 

NREC»NUNBER OF RECCROB OESIRED REPRODUrmrr ttv ad 

NPIXSNUHBER OF PIXELS OESIRED 

nFEATbNUHBFR of FEATURE8/ARRAV ORIGINAL page is poor 

tXLVANRAV length 
NXN wARRAV wlOTH 


INTEGER ACNPIX), B(lXLfNPlX) 

OfNENBtON V(3**«)* lv(32)« KNTC32)* X*AM{S2#«)# N(900)» NPOPCSOO), 
,m 0EX(500)* NOfcX(SOO) 

LOGICAL * 1 LN(4) 

EQUIVALENCE (1*# LN(D) 

OAfA MTR, NVEC* JF AC* IHOO* JPCD /2, 900* 3* 3, 4/ 

KOUNTSNVEC 
DC 6b XU«1*A0UNT 
65 NDbX(KO)«NO 

teRlTE (6*600) NREC* NPIX, NFEAT* L*L* NXN 

NLONG«LENGTH of SUBImAGE IN NUHBER OF L»L ARRAYS 
N»IOF*nIOTh OF 8UBIHAGE IN NUHBER OF NXN ARRAYS 
PRLNGRNl'MBtR RECORDS LEFT OVER FROM INTEGER MULTIPLE 
NRfcDMKUMRFR PIXELS LEFT OVER FROM INTEGER MULTIPLE 
IF THfRE are PIXELS AND/OR RECORDS LEFT OVER*OUTPUT IMAGE 
KILL 9F AN ADDITIONAL ARRAY WIDE ANO/OR LONG 
nlUKGsnREC/LXL 
N»lDtsNPlX/NXN 

m«lngsnrec*nlong*lxl 

NR*>OF«NPIX»NI»IOE*NXN 
IF (nNLnG*NE, 0) NLONGaNLONGYl 
IF (nRkoL.nF # 0) nwIDE ■NW lOEal 

STAR; READING IN THE 0E8IRE0 DATA 
KBTHE LENGTH OF THE SUBIMAGE IN LXl ARRAYS 
MXN S LXl 
DO NL«1,NL0NG 

IF (» L t E G«nLONG i AnD ( N'RLNG*nE*0) MXN*NNLnG 

: c 

• c READ IN LXL RECORDS CF DATA (A) AND PUT INTO 6 

1)0 150 NRSURXN 

1 read do) a 

DO 1 SO NP» 1 * NPl X 
130 H(NR*NP) « A(NR) 

5 lbU LOMINUF 

C 

C Tml FIRST STEP IS TO COMPUTE A FOUR*D HISTOGRAM 
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■*£ 


*<«r. M».r thc *firE 

MO 8‘PlMGE RFCCMC !$ M»I0F OF NXN ARRAYS 

wUF*"5Ta»T AM5 *8TCP ARE THf START A'O STOP FIXtLS 
IN fAfH RECORD FP9 MCR ARRAY 
ur ««u M»*i#N*ict 
mSTCMNw** XN 

hstakt* m8TO*nxn41 
IF (N*»LQ«M»ICt) nsT0P*npI* 

? CT «m> n * ( M8T0MM ST ART ♦ 1 ) 

DO 160 *C«1»kCUM 

IfH *P0P(| )*0 
AOUNTtM 

irnP rv»> RECDHOS 

i-C. 1R(| 

l.'C IRb n P*f»8T AMT » M STCP 
11* t tRMRNP) 

MASH ROD MM 

ACtilPtLATP FDU« DIMENSIONAL HISTOGRAM 

L fMPl'TE. TARLF t f C A T IPN FROM VECTOR Cn w P<’NEKTS 
1*1* 

OH 1 7? M« 1*4 
'-XV * l * (At ) 

I l* l * l *Jm( C ♦ ►fP(KAX,I»*CD) 
l «t* JF AC 41 

OM> F f*M E*PTr TAME LOCATION 
J7M |F(f PO(L ).At ,0)0 TO 1 1 1 

navf fu»aO * *F* VFCTCR# IaCHFRFNT VEuTOR COUNTER 

► OonTshPi.MAI 

SET PLPi'LATiriA CF M* VFCTpR TC CNE 

■wMi'Pft )*t 

. Ofcxd-u <M)*l 


RuT M * VECTOR INTO TAPLE 
• Cl ) • T R 
DP R I Hi* 


p *<* is 
**** Vjaut? 


CMC* T (; Skf IF VfCTCR IS IN TAHIF 
l H IF (* (l ),AE ,IM> fiC TP 1»9 

vECR« IS IN TAME. INCREMENT POPULATION COUNTER 
* Pf PtOfNPrRfl )♦! 
uC T i 1 H 0 

•'HR'* ts *■ C T TM SAME AS THE CNF *lR‘ INDEX L 
1M Tfl r.fAT RCFX 

» 7W I «( 4 1 
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c 

c 

c 


c 

c 


c 

c 

c 

c 

c 

c. 


c 

c 

c 

c 


c 

c 


c 

C 


CHECK rp SEC IF INDEX IS LARGER TRAN END OF TABLE 
IF SO, SET IKOEX TO ONI AND START AT BEGINNING OF TABLE 
If (L'Gf'NVIC)Lal 
GC TC 1?« 

REPLACE TNI ORIGINAL OATA MTH ITS TA»Ll LOCATION L 
JHO CONTINUE 

b(NR#NP) • L 


RETURN TO NEXT VICTOR 
1Gb CONTINUE 


1VU 


210 

220 


REPRODUCIBILITY OP THE 

Omrp’A’ T»Ar;o ;s POOR 

DELTA ■ FL0AT(K0UNT»I)/FL0ATCLMAT«I) 

DO no MP«1#LFE.AT 

IC»*fc* • ! ( OA(HF*l)«OELTAtO v B 

lbnocx(ichin) 

« ML) 

DC £10 NC«1,« 

V(HF,NC) ■ LH(NC) 

LCNTINUE 


RETURN TO NFXT RICORO 
CONTINUE 

FIND MEAT CLUSTERS 
LHAT • NINO (NFIAT* MOUNT) 


TH| M XT STEP IS TO ITERATE TO iNPROvt INITIAL CLUSTER EBTIRATE 
«*M(Nf) ■ POPULATION OF CLUSTER nr 
XHAR(M,NC)BN|AN VICTOR OF CLUSTER NF 
DC 4H0 IT«1*NITR 
DO 3(10 M«1 iLFEAT 
bkT(M) b 0 
DO ?90 NCBi,o 
POO *BbN(M,NC)bO,0 
400 CONTINUE 


rcN EACH PIXEL VFCTOR* FINO THE CLOSEST CLUSTER 
Dr 400 NOBl, MOUNT 
l S\DIX(KC) 

I R B Ml) 

X»lNSlO000O c O 
1*0 420 NPbi,1MAT 
SLH B ( 1,0 * ** 

DC 410 NC«1 #0 
XX s LH(NC) 

SUN « 8UH ♦ (V(M # NC)»XX)m* 2 
IF (5l*,GE.XMN) GO TC 120 
410 CO T I N (jf- 

> 1 K S $U* 

MtATBNF 

IF (SLH.LE.l.b) GO TO S25 
420 CONTINUE 

HA VF NCN FOUND CLUSTER THAT IS CLOSEST TO A PIXEL 
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r> --r c\ 


'< VECTOR • nF*T UPDATE CLUSTER POPULATION AnO CCPPUW 

0 UuSTPH *|AN VECTOR 
i4S C s FNT(PPEAT) 

ftNf(PFCAT) ■ ftPT<*FEAT)+NPOP(L) 

•it JSW NC»1#« 

X* • t»(KC)*AP(!P(l) 

MO KpAtft«'tMT,NC)«<Cft«BAft(mAT # ltCmX)/"ftH(PPfcAT) 

t: 

C RETURN TC MXT PI XU. 

» CCM1AU8 

C 

C NHM.AU no CLUSTER VECTOR PITH NE* CLUSTER VECTOR 
no Sf>c NP8|,LFEAT 
00 JfO NCt|,« 

5»»U V(NP ,K )>X8AR(NF#NC) 

f. 

t **R T»,»^ FC» NUT ITERATION 

Ml. CON TJ POP 

APTF* trN'PtPTlNG ITERATIONS# FIND THE CLUSTER CIC8LST TC 
EACH PAT A VECTOR IN THE TABU 
i;C «*(» KO«!»ncunT 

t' • i(l) 

»»» In« j orooo*o 

>C <»0«) NF«I»IFEAT 

SUN Z 0,0 

00 SRO NCt| # A 
X* 8 LMNC) 

SI. Z SU" ♦ (V(NP # NC)«XX)A*2 
If (SI', UP, XN |N> GP TO ROO 
0 ON 1 1M»E 
X*"|n « SO* 

-►p A»*nF 

IN (SC”,lP.t,S) bl) TO at 0 

••«•»* C.OMjNif 
up* {.!.:*• T |Mip 

(. SluHp f Hp CLUSTER Mj'HpR I N ARRAY RDt* 

y 0k« (I. )*'Pfc Al 
C 

U Kill KN TC KfeXT PIXEL 

<•*" Cl* NT | Ml 

0 

1 kM»u rp ( ATA VECTORS »ITh CLUSTER CfcR f R li lO$ 

UO Uti KF«l f iPPAT 

•>0 a*»l 

• ?i t MM) t V(M ,M) ♦ 0,S 
<*44 |V(M) 8 IN* 

00 4 E*> XR 8 |,MN 

t't aift AH| # ‘»STCH 

1 8 H( # MM 
^PNATSAOP <(L) 

**(w«,KP) s IKMPAT) 

■* *i> CCf-l I N oP 


^•GIFUjl PMit , 
* «> 0 R QUALITY 
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no on n n o n r 


435 CONTINUE 
t 

c RETURN TO NEXT DATA BLOCK (NXN ARRAY) ACROSS THE IMAGE 
4 <10 COMIME 

AFTER CLUSTERING HAS BEER COMPLETED ACROSS THE IMAGE* 

TMk CLUSTERED DATA IS HRITTEH CuT L*L RfcCORDS AT A TIME BV 
PUTTING B HACK INTO THE A DATA FORMAT 
DO 470 NR«1#MXN 
DC 460 NP«1,NP|X 
460 A(NP) * 8(NR,NP) 

470 NRITE (U) A 

» 

LXL RECQROS HAVE BEER HRITTEH THAT Go ACROSS THE 
IMAGE, THE NEXT STEP IS TO READ IN LXL MORE OATA 
RECORDS TO GO DO*N THE IMAGE, THIS IS ACCOMPLISHED BY 
?Hfr NEXT RETURN, 

440 CONTINUE 
RETURN 
C 

HOD FORMAT Cl '«?0X, (CLUSTER COOING ALGCRiTHM‘/2tX,24C*' J//21X, »RECOR 
.US USED • , 1 12//21X, tPlXCLS USED 1 , 11S//2M, 'FEATURES/ARRAY * , I10//21 X 
,, ‘ARRAY length (SCANS)', I4//21X, 'ARRAY *IDTH (PIXELS) ',!«// ) 

fcNO 
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VECTOR REDUCTION 


NAME 

VREDUC 

DESCRIPTION 

The number of measurement vectors required to represent an Image is 
reduced by merging the component values to the nearest of a set of 
equally spaced values (e.g., multiples of 3)* 

CALLING SEQUENCE 

Call VREDUC (KNT, KOUNT, INT, NUM, N, NOP, IFEAT, JFAC, IMOD, JMOD) 
where 

KNT is the number of pixels in the image, 

KOUNT is the number of vectors, 

INT is the separation of modified data values (e.g., 3)* 

NUM is the maximum population for which vectors are modified, 

N, NPOP are the tables of vectors and their populations (from HASH), 

IFEAT is the lengths of the tables, 

JFAC, IMOD, JMOD are the multiplier, divisor and base used in HASH. 
INPUT/OUTPUT 

Input and output are by the tables N and NPOP. 

DESCRIPTION OF SUBROUTINES 
No other subroutines are called. 

PERFORMANCE SPEC iFICAT IONS 

1 . STORAGE 

The subroutine requires 3880 bytes. The tables N and NPOP will require 
several thousand bytes for a large image. 

2. EXECUTION TIME 

The vectors are modified at a rate of approximately 1000 per second. 


178 


METHOD 

For each vector !n the table having population or up to "NUM," the 
components are changed to the nearest multiple of "IMT". If a different 
vector has been created, a table location Is computed as In HASH. If 
the modified vector Is the same as one previously existing before mod i f I - 
cation, the number of vectors Is reduced by one count, and the populations 
are added. If a new vector has been generated, the vector and population 
are transferred to the new table location. In either case, the popula- 
te -i at the original table location Is set to -I as a flag, and a pointer 
to the new table location Is put In the vector component table entry. 

The mean squared error of the Image defined by the reduced vector set 
Is computed. 

COMMENTS 

None. 

TESTS 

The modified vectors are multiples of INT as expected. An image 
reconstructed from the reduced vector set has the expected mean squared 
error. 

LISTING 

The subroutine listing follows. 

REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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o o o n o ooonr' n n n n nr. rnnnnnonon 


SUBROUTINE VREDtC (KNT#K0UNT, INT#NUR#N#NROP» IPSAT# JFAC#IH0D# JROD) 

KNT*A VARIABLE I860 TO COUNT THE NUMBER Of PICTURE ILIHENTf (PELS) 

K0UNT»A VARIABLE U8E0 TO COUNT THf NUMBER OP DIFFERENT VECTORS 

INT • INTEGER MULTIPLIER TO WHICH COMPONENTS ARE MODIFIED 

NUM s MAXIMUM POPULATION FOR WHICH VECTORS ARE 'MODIFIED 

N(I)aC0MP0NENT8 OF THE X*TH VECTOR IN THE TABLE 

NPCP(I)aTH| NUMBER OF OCCURRENCES OF THE ITH VECTOR IN THE TABLE 

IFCATbmaXIMUM NUMBER OF DIFFERENT VECTORS ALLOWED 

JFAtaMULTIPLIER 

IMODaOlVlSOR 

JMOOaBASE 

DIMENSION N(IFEAT)# NPCP(IFEAT)# NN(300)» HBECA) 

LOGICAL*! LM(4)# LO (<t) 

EQUIVALENCE (IM # LM(!)J, (NOLOfLOU)) 

DATA NBANO /«/ 

KONST • INT/2 
DO 400 NBb 1 # NBANO 
aoo MSE(NB) a o 

DO 445 lal,IFEAT 
IF (NPOP(I),EQ ( 0) GO TO 445 
IF (NPOP(I),GT,NUM) GO TO 445 

COMPUTE THE COMPONENTS OF THE INTEGER MODE VECTOR 
IM a MI) 

NOLD a IM 
DO 410 NC«1 *4 

410 LM(NC) a (L M (NC) ♦KONST)/ IN T*lNT 

IF THE VECTOR IS UNCHANGED# JUMP OUT 
IF (IM ( EQ,NOLO) GO TO 445 

HASH ROUTINE 

COMPUTE MEAN SQUARED ERROR 
L«0 

DO 415 NC«1#4 
NX1 a LO(NC) 

NXX a LM(NC) 

MSECNC) ■ MSt(NC) ♦ NPOP(I)«IABS(NX!«NXA) 

L * JMQO*L ♦ MOD(NXX, IMOD) 

415 CONTINUE 
L*L*JFACtl 

CHECK FOR EMPTY TABLE LOCATION TO PUT NEW VECTOR 
417 IF (NPUP (L ) #GT , 0) GO TO 425 
IF (NPOP(L),fcQ»*U GO TO 435 

HAVE FOUND A NF* VECTOR 

TRANSFER POPULATION AND NEW V»CTOR TO TABLE LOCATION L 
PUT POINTER FLAG AM) POINTER AT OLD TABLE LOCATION 
NFCP(L) « NPOP(I) 

N(L) « IM 
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NP(iP(I) * • J 
M I > » l 
Gu TO AR5 


REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 


C 

C TAHlt LOCATION 19 FILLED# 

C CHKH 10 SEE IP VICTOR 18 IN TABU 
«2S IP (ML),NE,IM> GO TC «S5 
c 

c IMFC.FR POOI CRFATFO A PREVIOUSLY EXISTING VECTOR 
c ADO PHFVlLI'S POPULATION AND RfOt'Ct VECTOR COUNT BY t 

C PUT PtlNTIP II.AG ANO POINTER AT CLD TABLE LOCATION 
NP(P(L) » NPUP(L) ♦ NPCP(X) 

M UN T*KCL)K T • I 
NFOM(l) B -J 
N C U a L 
GC TC <J«b 

(. 

C VICTOR NOT IN TABU, INCREMENT TABLE INOIX# GC BACH TC CHICK 
r; t> r AHLl LOCATION 
ulb LSL4I 

IKL,GT,IFLAT) Lai 
GC TC <117 
««•> COM I Ntl 
C 

•'.Kin (6, 7S0 ) 

*RlTt(6,«M>) 

*f«IT| (6,800) KCUNT 
f 

t Ul'T FEATURE VICTORS THAT OCCU* *T LEAST 1000 TIMES 

<-• v F C s 0 

i‘( USO 1*1, IFF AT 
1 1 (KPfjPO ),LT,1000)G0 TO OSO 
Ik * N ( I ) 

NVFC * NVIC ♦ 1 

If- (MIC, Eli, n NRITI (6,810) 

IF (k(H>(nV(C,<’),EQ, 1) NHITt (6,811) L% NPOP(I) 

IF f *C0(NVfC,2) ,IG,0) NRITE (6,812) L*# NPOP(I) 

KSO CCMINUF 
C 

( mi.lATIU 0ISTHI8UI0N IN LOGARITHMIC INCREMENTS 

I r. s or 1*1,300 
b o 0 n M n s !) 

GC Nsr 1*1, (FIAT 
IF (t.PCP(l),I T,l) GC TC *>50 
c. 

c cgum ihf mj^ber of vfctcrs that cccuk iooo’s cf times 

I I s \ p C P ( I ) / I <» C 0 
!M T I ,LT , 1 )Gl TC *>10 
I T a 1 1 ♦ 1 08 
gc cr s«u 

c 

f COUNT THfc nuHHFR of VICTORS THAT CCCt* 100’S CF TlHES 

Sin lTsivPCP(I)/10rt 

IF ( I I ,lT , 1 )G0 TC b30 
! Is! U 99 
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60 TO 540 


C COUNT THE NUMBER OF VECTORS THAT OCCU* FROM 1 TO 99 TIMES 
*10 II*NPOP(I) 

*40 NN(U)aNN(U)*l 
550 CONTINUE 
C 

C PRINT THE NUMBER OF VECTORS THAT OCCUR 1*99 TIMES# 100*8 AND 
C 1000*8 OF TIMES 
mRITE (6,815) 

J a 0 
INC ■ 1 

DO 560 IM#300 
IF (I,EQ,1Q1 ) INC > 100 
IF (I|EQ#110) INC • 1000 
J • J ♦ INC 

IF (NN(I),EQ,0) 60 TO 560 
X a NN(I)M00,0/K0UNT 
NR1TE (6,820) J# NN(I), X 
560 CONTINUE 
C 

C COMPUTE THE mean, VARIANCE# AVERA6E M«E 
CNT a NNT 

AL*-2 a At0610(2,0) 

AMSt a 0,0 
DC 610 NB>1 , NBANO 
NXM s 0 
NXV ■ 0 

00 600 1*1 , IFEAT 
IF (NP0P(I),IT,1) 60 TO 600 
IM « NCI) 

NXX ■ LM(MJ) 

NXM a NXM ♦ NPOP ( I ) *NXX 
NXV ■ NXV ♦ NP0F(I)*NXX*«2 
600 CONTINUE 

XMEAN S NXM / CNT 

SIGMA a (NXV»CNT*XMEAN*«2) / (CNT-1,0) 

SEE PR » MSE(NB) / CNT 
A MSP. a AMSt ♦ SGERR 

610 mRITE (6,610) MJ, XMEAN, SI6HA, SQERR 
AMSF a AMSE/NBANO 
mRITE (6,640) AMSE 
RETURN 
L 

750 FCHMAT ( ' 1 • ) 

800 FORMAT (//» VECTOR NO, a»,X8) 

610 FORMAT Pl», 20*, 'VECTORS NITH POPULATIONS OF AT LEAST 1000*//) 

Mil FORM! (10X, 414,110) 

812 FORMAT ( •♦•,50X,4I4,I10) 

815 FORMAT Cl'ilOX.'NO, OF TIMES»/6X,'A VECTOR OCCURREO * , 1 OX , ' NO , OF 
.VECTORS' , 10*, 'PERCENT OF TOTAL'//) 

820 FORMAT ( 120, 125,F25,4) 

810 FORMAT (/10*, 'BAND' ,11, 5X, 'MEAN •' ,F 10,1,5*, ' VARIANCE •',PlO#3,5X, 
.'MEAN SQUARED ERROR a'F6,4) 

640 FORMAT (/ 60 X, « AVERAGE MIAN SQUARED ERROR a»,F8 # A> 

660 FORMAT (' XNT a • , 15, ' HUM ■ * # 16) 

E NO 
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BLOB-1 

SEGMENTATION OF PICTURE 

NAME 
REFORM 

DESCRIPTION 

The REFORM program partitions the Image into smaller segments in 
order to conserve core In the execution of the BLOB subroutine. 

REFORM reads the portion of the image which is to be processed, 
creates rectangular segments, and writes one segment per channel to 
the segmented image file to be used by subroutine BLOB. 

CALLING SEQUENCE 

Call REFORM (SEG, RDATA, BOATA) 

where 

SEG is an array which holds four virtual segments; 

RDATA is an array which holds one line of image data expanded to 
one pixel component value per word. 

BDATA is an array which holds one line of image data in bytes. 

INPUT/OUTPUT 
1. INPUT 

Unit 12 - a sequential data set containing the image to be 
processed. The data set consists of NROW records of NCOL * 

TCHA bytes per record, each record corresponding to a line of 
the image. Each record Is in vector format and contains one 
pixel component per byte. 

COMMON/D I M/NROW, NCOL, HAFM, HAFN, TCHA, VSIZH, VSIZV, RSIZ, 

NREC, BLKS, DSIZ, VDIMH, VDIMV, VFIL, MIPS 
where 

NROW is the number of lines to be processed. 

NCOL is the number of pixels per line to be processed. 

HAFM Is NROW/2. 

HAFN is NCOL/2. 

TCHA is the total number of components (channels) in the Input image. 
VSIZH is the horizontal dimension of a virtual segment in pixels. 


REPRODUCIBILITY of tm- 
original page iS POO? 
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VSIZV Is the vertical dimension of a virtual segment In pixels. 
RSIZ Is the size of one segment In words (RSIZ ■ VSIZH * VSIZV). 
NREC Is the number of segments In the virtual file. 

(NREC - VDIHH * VDIHV * TCHA) 

BLKS is the number of segments per component (channel). 

(BLKS - VDIMH * VDIMV + 1) 

OSIZ is the maximum size of the directional lists. 

VDIMH is the horizontal dimension of the image in segments. 

VDIMV is the vertical dimension of the image in segments. 

VFIL is the unit number of the segmented image file. 

MIPS is the maximum number of initial points. This parameter 
is used by the program RECON. 

2. OUTPUT 

The output of REFORM will be on unit VFIL as a direct access 
data set with NREC records. There will be one record per segment 
per chjnnel in the virtual file. 

3. FILE STORAGE 

No additional files are required by REFORM. 

V. DESCRIPTION OF SUBROUTINES 

The storage requirements and the functions of subroutines used are 
given in the following table. 

DESCRIPTION OF SUBROUTINES FOR REFORM 


SUBROUTINE NAME 

STORAGE 


(Entry Points) 

(Bytes) 

FUNCTION 

REFORM 

1708 

Initialize starting point, call 
routine to read line of data, 
build one row of virtual seg- 
ments, write to file. 

GADLIN 

608 

Read one line of image data, 
expand data to one pixel 
value per word. 
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The linkages of the subroutines are given In the following table 


VI. 


VII. 


LINKAGES OP SUBROUTINES FOR REFORM 


REFORM 


GADLIN 


PERFORMANCE SPECIFICATIONS 

1. STORAGE 

The subroutine REFORM Is 1708 bytes long. The storage needed to 
run this subroutine depends on the size of the Image to be 
processed. The storage to process an Image of 112 x 112 pixels, 
including a driver and the required subroutines, Is 94K. 

2. EXECUTION TIME 

The execution time ts dependent on the size of the Image to be 
processed. To reformat an Image 112 x 112 pixels required 
approximately 11 seconds of CPU time. 


METHOD 

The input unit number is set to 12. 


REPRODUCIBILITY OF THE 
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The area to be processed is determined by setting the starting line 
and sample to 1, the number of lines to NROW, and the number of samples 
to NCOL. 

Virtual segments are constructed one row at a time as follows: 

REFORM calls subroutine GADLIN which reads one line of data, expands 
it to one pixel component per word, and stores the expanded data in 
the real array RDATA. 


The virtual segments are then written to the output file on unit 
VFIL. One row of segments is written per channel. 

This process is repeated until NROW lines have been read and 
segmented. 
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SUBROUTINE REFORM 


INITIALIZE 

VARIABLES 




/ CALL 
\ GADLIN 


READ ONE LINE OF DATA; 
MOVE TO REAL ARRAY RDATA 


\ 

t 

MOVE DATA 
TO ARRAY 
SEG 

\ 

f 


(write array 
SEG 

TO DISK 


CREATE VIRTUAL SEGMENT 
FROM RDATA 


WRITE VIRTUAL SEGMENT TO 
DIRECT ACCESS DATA SET 


C 


RETURN 


) 


Figure 16. Flow Chart for Subroutine REFORM 



COMMENTS 

The vertical and horizontal dimensions of the image must be integral 
multiples of the respective vertical and horizontal dimensions of 
the virtual segments. 

TESTS 

The reconstructed images from the BLOB package have been examined by 
use of mean square error calculations and plots and histograms of 
difference Images. 

LISTINGS 

Listings of the subroutines follow. 


on n nnonnooooo 


SUBROUTINE RFFORM (Sf G, RDATA, SOATA) 

8»iBR OtTINF REFORM EXTRACTS TH| AREA OF INTEREST FRO* THE 
IKPl'T PICTURE |K VICTOR FORMAT AMD PARTITIONS IT INTO VIRTUAL 
SEGMENTS FOR RICH PROGRAM, 

MODIFIED RV MANS G, *01* NASA/GSFC CORF 93i* SEPTEMBER 1976 
MODIFIED BY JULIA M , H00GE3, DECEMBER 1977 


♦ 


I 


IMPLICIT INTEGERS (A»7) 

RF AL*<i 8EG{V8TZV,VSIZN,VDIMM,TCHA),RpATACTCNA,NC0L) 

LOGICAL*! 90ATA(TCMA,NC0L) 

C0MMpK/niM/KC0L»NR06#MAFP,MAFK#TCHA»V8UH,V8IZV,R8IZ#RRFC#BLR8# 

* P3!Z#V0!MM,VD!MV,VFU,M!PS 

INITIALIZE INPUT UNIT# STARTING lIMfc, STARTING SAMPLE, 

NUMBER OF LINES, NUMBER OF SAMPLES. 

UNIT«J i 
8L«1 

ss*t 

NLPNRC* 

NStNCCL 

RRITF ( 6,1605) 

DO N YSFG « 1, VDIMV 
LINE » 0 

Bull 0 ONE RON OF VIRTUAL SEGMENTS 
00 U SLNUM • 1, VSIZV 
LINE * LINE ♦ 1 

CALL GAHLIN (ROATA, BDATA, UNIT* S3, NS, LINE, *»0, *90) 

NO ERR, SC *OVE DATA TO VIRTUAL PICTURE FILE 
00 3 CHAN • 1, TCMA 
COL « 0 

00 2 YSFG • 1, VOIMH * 

00 1 SEGCOL « 1, VSIZM 
COL » COL ♦ I 

SFGCLINF, SEGCOL, XSE6, CHAN) • 80ATA(CmAN, COL) 

ccminll 

CONTINUE 
continue 
CONTINUE 

*B!TF one rcn of segments per channel 
CO 5 chan • 1, ICMA 

00 S XSEG a l, VCIMh 

BLN * fCMAN«l)*(RLKS*l) ♦ (YPEG«1 )*VCIMH ♦ XSFG 
NRITF 16,1602) BLK 

NRTTF t'VF IL’BL*) CISEGIX, Y,X8f G,tHAN) ,*al , vSIZV), val ,V5I*H) 

S CONTINUE 
RETURN 
C 
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C ERROR RETURNS FOR GADLIN 
GO WRITE! 6# 1600) 

RETURN 

SO WRITE ( ft* 1601 ) 

RETURN 

C 


1600 FORMAT (' 

1601 FORMAT (I 
160? FORMAT c • 
1601 FORMAT (' 

INO 


FERMANENT I/O ERROR ON INPUT TAPE* ) 
tNO OF FILE OR VOLUME ON INPUT TAPI 1 ) 
WRITING BLOCK** 16) 

STARTING THE RFF0PMATIN6*) 
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one on ooooooo 




SUBROUTINE GAOLI* (BOAT*. BDATA, UNIT, 88 , KS, l!M» », • ) 

SUBROUTINE 6A0LIN »- C V t 8 CNF LINE CF PiCTuRf DATA 
TC At AW NUHflER ARRAY 
INPUT TAPE SHOULD SC IN VICTOR FORHAT • 


INTEGER HAFH,HAFN,TCHA,V8I{H,VSIZV,NC^2»BLR8,C3IZ, 

C VDIHH,V0IHV,VFIL,HIP8 
INTEGER UNIT 
REAL*« RDATA(TCHA,NCOL) 

LOGICAL*! «0ATA(TCHA,NC0L) 

C 0 MHrN/DIH/NC 0 L,NRC»,HApp,HAFN,TCHA,v 8 lZH,V 8 lZV,R 8 IZ,NRECf 8 LR 8 # 
R DSIZ,VDIHH,VDIHV,VFIL,HIP 8 

REAP A LINE OF P1CTLRF CATA 
READ (UMT.ENO««O0,ERR»bO0) 80ATA 

STORE EACH RECORD BYTE (PIXEL COMPONF^T VALUE) 

AS A FULL NORD REAL NUHBER a 
DO 100 I«1,N8 

OP 200 J • 1, TCHA 
RDATA ( J, I ) • B0ATA(J,I) 

200 CONTINUE 
100 CONTINUE 

RETURN 

C ERROR RETURN FOR READ 
ttOO RETURN 1 
bOO RETURN 2 
END 


188 


BLOB-2 

DETECT HOMOGENEOUS REGIONS 

I. NAME 
BLOB 

II. DESCRIPTION 

The BLOB program locates homogeneous regions (blobs) In an image by 
detecting the boundaries between regions. Statistical F- and t- tests 
are performed to determine whether a pixel Is an element of the region 
currently being outlined. Output flies are created for reconstruction 
of the Image using the program RECON. 

III. CALLING SEQUENCE 

Call BLOB (DIR, OUT, ADIR, VHEM, XCPL, YCPL, BLOBM, IPSSQ, MEANS, 

BKSTAT, IPMEAN, STATUS) 

where 

DIR is the stack used to allow the program to back up In its tracing 
of contours when its forward path Is blocked. 

OUT is the direction upon leaving a pixel group in a contour. 

ADIR is the list of directionals for the current initial point. 

VMEM is the virtual memory array containing four segments. 

XCPL is the X-coordinate of a pixel group in the comparison pointer 
list. 

YCPL is the Y-coordtnate of a pixel group in the comparison pointer 
list. 

BLOBM Is the mean of the current pixel group. 

IPSSQ is the sum of the squares of the pixel group in the initial 
point. 

MEANS is the mean values of the pixel group in the current initial 
point. 

BKSTAT is the index for the virtual segment to be retrieved. 

IPMEAN is the mean of the current initial point. 

STATUS Is the array holding the status flags for each pixel group. 


C-3 

if*} 
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INPUT/OUTPUT 
1. INPUT 

a. Card 1 In FORMAT (2F10.3): 

FVAL the F-test value 
TVAL the t-test value 

Possible values for FVAL and TVAL are listed below, they do not 
have to be at the same level. (See References 3 and i|.) 


LEVEL 

FVAL 

TVAL 

1 

29.45 

1.44 

2 

47.467 

1.949 

3 

141.1 

2.447 

4 

261.0 

3.143 

5 

884.6 

3.707 

6 

1514.0 

5.959 


b. Card 2 in FORMAT ( 12, II): 

NCHA - the number of components (channels) to be used for 
contouring. The first NCHA components will be used, 
and NCHA must not be larger than the value specified 
by the symbolic parameter TCHA. 

IPRINT - a non-zero value for IPRINT will cause the region 
description and directional list to be printed. 

c. Direct access segmented image file on unit VFIL as generated 
by the reformatting program REFORM. Four segments at a time 
are kept in main memory. BLOB traces contours and if one of 
the segments in main memory does not contain a referenced pixel, 
the required segment is read in and replaces the oldest previous 
segment. 

d. COMMON/D I M/NCOL, NROW, HAFN, HAFM, TCHA, VSIZV, VSIZH, RSIZ, 
NREC, BLKS, OSIZ, VDIMV, VDIMH, VFIL, MIPS as described for 
the subroutine REFORM. 



2. OUTPUT 

f a. Description of each detected region In form IPX, IPY, BLOBN, 
NDIR, MEANS on unit 8. 

IPX - the column coordinate of the Initial point of a region. 
IPY - the line coordinate of the Initial point of a region. 
BLOBN - the number of points In the region times four. BLOBN 
■ k denotes a singular point. 

NDIR - the number of directional elements In the contour of 
the region. 

MEANS - the mean values for the NCHA components of the region. 

b. Directional list for each detected region. NDIR directional 
elements are written on unit 9> A directional element can 
only assume the values I, 2, 3, or 4 corresponding to the 
directions shown below. 


3« 


& 1 


c. Printed Output - the number of Initial points (regions) and 

the total number of directional elements are printed. Optionally, 
the region description and the directional list are printed. 


3. FILE STORAGE 

No additional files are used by this program. 


DESCRIPTION OF SUBROUTINES 

The subroutine BLOB calls several subroutines. 
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DESCRIPTION OF SUBROUTINES FOR BLOB 


SUBROUTINE 

STORAGE 

(OECIMAL BYTES) 

FUNCTION 

BLOB 

2776 

Initializes variables and arrays. 
Locates new initial point* traces 
contour, and sets contour bits 
when completed. Writes Initial 
point Information and dtrectionals 
to files. 

COMPAR 


Compare pixel groups to determine 
points in current contour. 

ERR 

1820 

Print error messages. 

ERRMSG 

Entry under ERR 

Traceback for errors. 

GETPIX 

2958 

Looks for pixel groups to 
add to the current contour. 

GSTAT 

1036 

Gets the current status of a 
pixel group. 

INITV 

Entry under PIXEL 

Initializes virtual memory 
parameters. 

IPCPAR 

900 

Compares pixel groups to locate 
initial point of new contour. 

MEAN 

650 

Computes the mean of a pixel 
group. 

NEWIP 

1734 

Locates initial point for a new 
contour. 

PIXEL 

15W 

Locates virtual segment con- 
taining required pixel. 

PSTAT 

Entry under GSTAT 

Stores current status of pixel 
group. 

SET 

Entry under GSTAT 

Sets status bit to designate 
a point in some contour. 

SICB 

1»78 

Sets status contour bit for all 
points in a contour. 

SSQ 

510 

Computes the sum ot the squares 
for a pixel group. 
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LINKAGES OF SUBROUTINES FOR BLOB 


CALLING PROGRAM 


PROGRAM CALLED 


INITV* 

PSTAT+ 

SET+ 

SICB 

SSQ 


NEWIP 

GETPIX 


IPCPAR 


* Entry under PIXEL 
+ Entry under GSTAT 

# Entry under ERR 


PIXEL 


NEWIP 


GETPIX 


PIXEL 


PIXEL 

GSTAT 

ERR 

IPCPAR 

ERR 

PSTAT+ 

COMPAR 

ERRMSG# 


COMPAR 


MEAN 

PSTAT+ 

SSQ 

GSTAT 









VI 


PERFORMANCE SPECIFICATIONS 


1. STORAGE 

The storage required to process an Image 112 X 112 pixels with 
4 channels, Including a driver and the required subroutines, Is 
121 K. 

2. EXECUTION TINE 

The execution time Is dependent on the size and complexity of the 
image, and the F- and t- values chosen. To process an Image of 
112 x 112 pixels required approximately 1 minute and 16 seconds of 
CPU time. 

3. RESTRICTIONS 

The dimensions of the image to be processed must be multiples of 
2. The dimensions of the virtual segments must be multiples of 2. 


VII. METHOD 

The BLOB program package is an implementation of the BLOB algorithm 
(see References 3 and 4) for IBM 360/370 computers with OS/MVT. The 
BLOB algorithm detects homogeneous regions (blobs) in monochrome images 
or multi -images (mul t (spectra) , mul ti temporal ) . The algorithm 
guarantees closed boundaries of the regions. Its output is a list 
description of the detected regions consisting of the coordinates of 
an initial point for each region, the number of points within each 
region, the number uf boundary points for each region, the mean values 
of each component of the multi-image for each region and a list of 
directlonals describing the contour of each region. A multi-image may 
be reconstructed from this compressed description using the program 
RECON. 

The values for FVAL, TVAL, NCHA, and I PR I NT are read from cards. The 
arrays VMEM and STATUS are set to zero, and other variables are 
initialized. 
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Figure 17. Flow Chart for the BLOB Program. 




The first Initial point is set to (1,1) and the contour parameters 
are Initialized. The image Is processed In groups of four pixels, 
one point being a 2 x 2 pixel group. 

The subroutine GETPIX is called repeatedly to trace out the contour 
by searching for adjacent pixel groups having the same statistical 
values as the initial point. The search continues until it. ts 
determined that the blob contains a single pixel group or until the 
contour is completed. Entries into the directional list ADIR are 
created, and the status of each point Is computed. 

The mean of the blob is computed for each channel. The initial 
point coordinates, number of points in the blob, number of entries in 
the directional list, and the means are written out to unit 8. 

If the blob contains more than one pixel group, the directional list 
Is written to unit 9 and subroutine SICB is called to set the status 
contour bit for each point of the contour. 

r 

The subroutine NEWIP is called to locate the initial point of a new 
contour and the contouring process is repeated. 

COMMENTS 

None. 

TESTS 

The reconstructed images from the BLOB package have been examined 
by use of mean square error calculations and plots and histograms of 
difference images. 

LISTINGS 

Listings of the subroutines follow. 
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MAIN PROGRAM • ORXVIR POP BLOG ROUTINE 

TNI FOLLONING LIST DEFINES TNI PARAMf1|R8 ulfO BY TH| BLOB 
SUBROUTINES, ALONG NITH SAMPLE VALUES, 


NOTI THAT NRON# NCCL, VSIZV, AND VSIZH POST Gt MULTIPLES OP 2 AND 
NRO» • VSIZV * VDIMV 
NCCL • VSIZH * VOIMH 


NRON • ISA 
NAFM ■ 120 
NCOL • 258 
HAFN ■ 128 
TCHA ■ A 
V8IIV ■ 32 
VSIZH ■ 32 
R8IZ ■ 1024 
NRIC • 258 
BLK8 • 85 
0812 a 4098 
VDIMV ■ 8 

VO I nr a 8 

VFIL ■ tl 
MJRS ■ 9999 


THE VERTICAL BIZI OF THE PICTURE BEING CONTOURED 
HALF OF NRON 

THE HORIZONTAL SIZE OF THf PICTURE BEING CONTOURED 
HALF OF NCOL 

TOTAL NUMBER OF CHANNELS IN THIS PICTURE 
VERTICAL DIMENSION OF VIRTUAL SEGMENT IN PIXELS 
HORIZONTAL DIMENSION OF VIRTUAL SEGMENT IN PIXELS 
SIZE OF VIRTUAL SEGMENT IN WORDS (VSUVtVSIZH) 
NUMBER OF RECS IN VlRT FILE ■ V0IMV*V0XMH*TCMA 
NUMBER OF VIRTUAL SEGMENTS PER CHANNEL PLUS I 
MAXIMUM SIZE OP THf DIRECTIONAL LISTS 
VERTICAL DIMENSION OP PICTURE IN VIRTUAL SEGMENTS 
HORIZONTAL DIMENSION OF PICTURE IN VtRTUAL SEGMENTS 
UNIT NUMBER OF VIRTUAL FILE 
MAXIMUM INITIAL POINTS AlLONfO FOR PICTURE 


DEFINE FILE VFIL CNREC*R 8 lZ,U,NXTREC) 

9 • • » J • t •▼ft* t i MT M I F tT « •ITttltMMtt'f* *0 f M f • • i Ti I » t » f • I* I M ♦ M • • 


DIMENSION 8EGC26, 32*8,4), RDATA(4, 192) , BL0SMC4) 
REAL MEAN8(4), IPMEAM4), IP88QC4) 

INTEGER BK8TATC25), 0UTC98) 

INTEGER PMEANS(7000,4) 

INTEGER ADIR(2000), D1R(2000), XCPL(99), VCPLC98) 
INTEGER 80UND(98,58), IPSSC98) 

INTEGER HAFM,hAFN, TCHA, VSIZH, vsizv,rsiz»blms,dsiz, 
C V0IMH,VDIMV, VFIL, MIPS 
LOGICAL*! STATUS (98, 58), SL INC (4, 192), T8LC788) 
EQUIVALENCE ( 8 C 6 (I,t,l,i),PM|ANS(I,l)) 


COMMON// ATOP, OTOP 

CnMN 0 N/ 0 lM/NC 0 L,NRCN,MAFM,HAFN,TCMA,VSIZH,V 8 IZV,RSlZ,NREC,SLKS, 
4 DSI2,VDIMH,VDIMV,VFIL,M1P8 
COMhon/BLOBI/BLCBN 
COMMON/PI X/N,M,MAXMN,N|XTB 

COHNON/IPL/tPX, IPV, IPCNT,CXT Ul'PROmiriRTi rrv no 

COMMON /LEVELS/ FVAL, TVAL, NCHA 

COMMON /LAST/ XLAST, YLA 8 T ORIGINAL PAGL lb POOR 

common/vmemrv/pgcnt 

common /CPL/ TOPCPL 


DEFINE FILE ! 1 ( 98,896, U»NXTRCC) 


NRO* a 112 
NCOL ■ 192 
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VSIIv • 26 
vaszH t sz 
PAFP • NROw/2 
HAP* a hCOL/2 
TCHA • 8 

VOI*V • M)0w/vSI2V 
V0 I»h a KCOL/V8I2H 
N8I2 t V812V*VS!ZH 
NRfcC • vOtHV*VO!^H*TCHA 
ttLKS • VOIMV<>VDlPH ♦ 1 

vru « U 
0812 • 2000 
H1P8 ■ 7000 
N a KCOL 
m a kRQw 

MAXMK 8 (*Ak0(M,N))/2 
NO 8 A * NCOL 

CALL ACFORH (SEC# HDATA, 81IM) 

CALL BLOB (flf>*C0T,ACIP,8CG ,XCPl, VCPL,*LOHP, IF8S0 ,hMn 8, 
8 HKSTAT#iP*MN, STATUS) 

RIMINO 8 
HE** I nC 0 
REaJNC 12 

CALL RECOM ADIP, SLUE #TSL,3TATL9»P*tAN8. BOUND, IPB3#M) 

STOP 

END 
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SUBROUTINE BLOB (DIR*OUT#ADIR#VMtM*XePL»VCPL#BLOBM,IPSSQ#MEANS» 

• BK8TAT t IPME AN .STATUS) 

c 

C mRITTEN BV setts C, S1U.KS IN THE FALL AND NINTfR OF 1474 

C MODIFIED BY NANS 8, HOIK, NASA/GSPC CODE 433 IN SEPTEMBER I STB 

C FOS IBS 1*0 telTk 08/MVT 
C MODIFIED BV JULIA M, H000E8# OECEMBER 1477 

C THIS PROGRAM TRACES OUT THE COkTOuS BA8BD ON THE FIRST 
C N CHANNELS OF THE FRIkCIFAL COMPONENT TRANSFORM MHERE N 
C CAN BE UF TO ALL THE TRANSFORMED CHANNELS, 

C 

C FILES USAGES 

C IF • THIS FILE MOL08 ALL THE INFORMATION ABOUT ALL THE 
C IkTIAL FOIkTS (IF) FOR A FICTURE ANO THE MEAN OF EACH CONTOUR 

C THE OATA IS FIXED LENGTH RECOROl* 

C ( FORTRAN UNIT NUMBER S ) 

C OIR • THIS FILE H0L08 THE DIRECTIONAL INFORMATION FOR ALL THE 
C CONTOURS* THE DATA IB VARIABLE LENGTH RECORDS* 

C ( FORTRAN UNIT NUMBER t ) 

C VFUE • THIS IS THE VIRTUAL FICTURE MlMORV FILE MHICH IB 
C U8E0 TO STORE THE FICTURE SEGMENTS THAT ARE NOT 

C CURRENTLY NEEDED IN CORE* (READ ONLY FILE ) 

C ( FORTRAN UNIT NUMBER !! ) 

C OUTPUT • FILE USEO TO PRINT STATISTICS AND ANY ERROR MESSAGES* 

C ( FORTRAN UNIT NUMBER * ) 

C INPUT • FILE USED TO REAO IN FVAL, TyAL# TCNA# AND 1PRINT 
C ( FORTRAN UNIT NUMBER S ) 

C 

C FVAL • THE CURRENT F-TEST VALUE 

C TVAl • THE CURRENT T«TEST VALUE 

C POSSIBLE VALUES FOR FVAL ANO TVAL ARE LISTED BELON* 

C THEY BOTH OGMT HAVE TO BE AT THE 8AHE LEVEL* 

C FURTHERMORE THE LEVELS USED IN IPCPAR AND COMFAR NEEO 
C NOT BE THE SAME, (GROUPS OF FOUR PIXELS HAVE BEEN AS8UME0 
C FOR THESE VALUES.) 

C LEVEL F-VALS T-VALS 

C 1 29 ofi I 

c i 47,467 l!s«s REPRODUCIBILITY OP THE 

C 3 i«l * 1 i ,88? ORIGINAL PAGE IS POOR 

C A 2*1.0 1.1*13 

C S 684,6 1.707 

C 6 1514.0 5.454 

C 

C *0!R • A LIST OF ALL THE DIRECTIONaLS FOR THIS IP 

C atop • POINTS TO THE TOP ENTRY !N THE ACTUAL DIRECTIONAL LIST 

C OIR • STACK USEO TO ALLOM THE PROORAM TO BACKUP IN ITS TRACING 

C OF contours mhen its FORmARO PATH IS BLOCKEO 

C DT0P • POINTS TO THE TOP OF THE DIRECTION STACK 

C XLA8T • THE X COORDINATE OF THE PIXEL OMOUP AT THE FRONT OF 
C OUR CURRENT CONTOUR* (USUALLY THE LAST GROUP FOUNO BY 

C GETPIX , EXCEPT IF ME HAO TO PACK UP ) 

C VLA8T • THE V COORDINATE OF THE PIXEL GROUP AT THE FRONT OF 
C CUR CURRENT CONTOUR* (USUALLY THE LAST GROUP FOUNO BY 

C GETPIX , EXCEPT IF ME HAO TO PACK UP ) 
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onnnnmnnnnnoonnnftnrnonnnooonnnnonooooonnnran 


IPX • THE X COORDINATE OP THE CURRiM INITAL POINT (IP) 

IPV • TNI Y COORDINATE CP TNI CL'RREM IP 

IPH| AN . THE MEAN OP TNI CURRINT IP 

IP880 • TNI 8W" OF TNI SQUARES OP T M I PIXEL GROUP IN THE IP 
I PCM • RUNNING SUN OP THI NUP8|R OP !P8 

EXT • POOUAN FLAG TO INOICATF INTERNAL OP EXTERNAL CONTOUR 
TRUE • EXTERNAL 
PAL8E • INTERNAL 

STATUS • ARRAY HCLOING TME STATUS FLAGS FOR EACH 
PIXEL GROUP, 

BLOB** • HAS *ME HEAR OP THE CURRENT SLOS GROUP 

BLOBN • HAS (HE NUMBER OP PIXELS U THE CURRENT BLOG 

VM|m • VIRTUAL HEMORV OP OUR PICTURE! 

IT HOLOS POUR SUBPICTURES, 

TOPCPL • TOP 0! THE COMPARISON POINTER LIST 
XCPL • X COORDINATE CP THE PIXEL GROUPS IN THE CPL 
YCPL • V COORDINATE OP THE PIXEL GROUPS IN THE CPL 
n • the HORIZONTAL DIMENSION OP the PICTURE MATRIX IN PIXELS 
H • THE VERTICAL 0!M|N8X0N OP THE PICTURE MATRIX IN PIXELS 
(H ANO N MUST BE MULTIPLES OP 2,) 

HAXHN • (MAX (M,N ) )/2 

PIXEL GROUP • IS a CROUP OP POUR PIXEL ELEMENTS* 

WHOSE COORDINATES ARE GIVEN BELON, 

CJ.M , (J*XAt) * («!♦!**) , CJ«!*K*i) 

THIS DEFINES ONE PIXfL GROUP NHPRE J IS OEPINEO 
BY Jal » ( « t N«l WHERE N IS THE 

HORIZONTAL SIZE OP THi PICTURE 
AND xmI'S'Bmm'MM where M IS THE VERTICAL 
SIZE OP THE PICTURE 

DONE • BOOLEAN FLAG USED TO TELL CONTOUR THpRf ARE NO HIRE IPS 
IPOONE • BOOLEAN FLAG RETURNED BY CtTPIX TO SAY !T»8 DONE WITH 
THE PRESENT CONTOUR 

X • THE X COORDINATE OP THE CURRENT PIXEL 6RCUP 
Y • THE Y COORDINATE OP TH| CURRENT PIXEL GRCUP 
MEAN • REAL FUNCTION TO COHPUTE TH| MEAN OP I PIXEL GROUP 
HE AH8 • ARRAY HOlOlNG THE HEANS CP PRINCIPLE COMPONENTS 
PON THE PRESENT IP 

TDCM • HUNN1NG COUNT OP TOTAL NUMBER OP OIRECTIONALS 
IN THIS PICTURE 

IN • ARRAY HCLOING COUNT OF NUMBER OP INTERNAL CONTOURS CP SIZE 
1,2*1 PIXEL GROUPS 
EX • SAME AS In BUT FOR EXTERNAL CONTOURS 


HEAL IPMIAN(TCHA),IPSSQ(TCHA) 
heal vpep(vSIZV#vs!ZH,<i,TCHA) 

NEAL MEAN 

INTEGER HAFM,HAFN,TCHA,V8!ZH # V8!ZV ( R81Z*BLK$,C8!Z* 
C VDImh,vO!MV,VEIL»mIP3 
INTEGER BKSTAT(BLKS)* OUT(HAPN) 

INTEGER aT 0P#DTCP,A0!R( D8!Z),DIR< Oft 12) 

INTEGER xlA8T,YLAST # BL0BN,P6CNT 
INTEGER XCPL (PAXHW) , YCPL (MAXMN), TOPCPL 
INTEGER X,Y,TDCNT,GHAN, JN(S),EX(1) 
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LOGICAL IXT'OONC'IPOONC 
LOGICAL*! 8TATUB(MAPN,MAPB) 

DIMENSION BLOB* (TCHA)ifUftlCTCHA) 

COMMON/ DIM/NC0L#NB0N,HAPM,MAPN,TCH A# V8I2H,V81ZV,BSIZ#NBCC#0LKS# 
• D8IZ#V0IMM,VCIPV, VEIL# MIPS 
COMMON /LEVELS/ PVAL* TVAL# NCPA 
COMBO* // ATOP#DTOP 
COMMON /LAST/ XkASI'VLAIT 
COMMON /IPL/ IPX# IPY# IPCNT#EXT 
common/blobi/slobn 

COMMON/VMEMBY/PGCnT 
COMMON /CPL/ TOPCPL 
COMMON/PIX/N,M,MAXMN,NEXTB 
DATA TOCNT/O/ 

DATA IN#EX/6*0/ 

C 

C IMTALIZATION OP VABXABLCS 

XP«XNT*G 

BEAD (5# 109) PVALt TVAL 
BEADES.lll) NCMAfXPBINT 
IP (NCMA.GT, TCMA) NCMA« TCMA 
»BITE(6#111> NCMA 
nBITEEB# 106) PVALt tVAL 
CALL INITV (Of VMEM, BK8TAT) 

1PCNT • 0 
MGCNT ■ 0 
ITCNT ■ 0 
C 

C THESE NEXT DO LOOPS ABE BEALLV ZEBOlNG OUT STATUS 
C THIS ASSUMES THAT , FALSE, IB PEPBeSINTEO BV A ZfcBO BYTE 
00 1 Itl# MAPM 
DO 1 J»1#MAPN 

STATUSES!) • .FALSE, 

1 CONTINUE 
C 

IPX ■ 1 
IPV • 1 
GO TO 7 

2 CONflNUE 

CALL NEMXP COOM # XCPL # YCPL # STATUS # OUT # AO IB# OIB#VMEM*SKSTAT) 

IPC OCNE ) GO TO 6 
C 

C INITIALIZATION FOB EACH CONTOUB 

7 BLO0NMA 

DO 11 CMAN«l,NCMA 

IPSSG(CHAN) a 8SG(IPX,XPY,CMAN,VMEM,BRSTAT) 
lPMEAN(CMAN) a mEan(IPX,IPV,CMAN#VMCm,bkSTAT) 

11 BLCBM(CMAN) a IPMEAN(CMAN) 

C 

ATOP a 1 
OTOPat 
DIB (DTOP)al 
AOlBEATOPlsl 
xaipx 
valPv 




feeS*** 
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IPCMSIPCMM 

1F( IPY ,LT, ITCNT )G0 TO a 
ITCNT • ITCNT ♦ ( VSJ2V/ 2 ) 

WHITE (6, 107) IPY# IPCNT»TOCNT*PGCRT 

C 

c go look for another pixel group 

a CALL GETPIX (X, Y, IPCCNE, AOIR* CIR, BLOBM, IPPEAN, IP880 
•STATUS* V"fcH, BK8TAT* OUT) 

IF C , N C T . IPOCNE ) GO TO R 
C 

TOCNT*TDCNUATOP 
00 12 l«l,NCHA 

RhEANS > BLOBP(I)/FLOAT(SLOBK/R) 

12 KEANS(I) * RPIAK8 ♦ 0.5 

WRITE (8) IPX, IPY, BLOBN, ATOP, MEANS 

IFClPRfNT.Nt.O) WRITE(6,701) IPX, IPY, «LOBN,ATCP, MEANS 
CALL PSTAT (IPX, IPY, AOIR(ATOP), 1, STATUS) 

CALL SfcT (IPX, IPY, STATUS) 

C 

C INCREMENT "IN* OR "EX" IP NECESSARY 

IF ( ATOP ,GT, 5 )GC TO 10 
IF ( EXT )G0 TO 0 
IM(ATCP/241)PIN(ATCP/2A1)41 
GO TO 10 

9 £X(ATCP/2*l)*EX(ATCP/?M)4l 
10 IF C BLOBN ,EQ. 4 )GC TO 2 

WRITE (9 ) ( ADIR(I) , 1*1, ATOP ) 

1FUPRINT.NE.0) WRITE (6, 702) (AOIR(I ) • I»t , ATOP) 

C 

C SET THE IN CONTOUR BIT FOR CONTOUR JUST COMPLETED 

CALL S1CB (ACIR, STATUS) 

GO TO 2 
C 

6 TOCNT«TOCNT»IPCNT 

WRITE (6* . 0 5 ) IPCNT , TOCNT 
WRITE (6, 104) IN, EX 
RETURN 
C 

10J FCR*AT(' CONTPURSI no OF INITIAL POINTS* I*, // 

• IX, 'TOTAL NO OF DIRECTIONALS* » , 19) 

104 FC«hAT(»OINTERNAL CCNTCURSl IN (U3)*‘ , J(I5,2X),/ 
n • EXTERNAL CONTOURS EX(1«3>*» ,J(J5,2X) ) 

105 FORMAT (211) 

106 FCRwAT(I1FLEVEL«',F10,3, • TLEVEL 8 ' , FI 0.3) 

t07 FORMAT ( • 0 IPY* », 14, ' IP COUNT* ', 15, ♦ OIR COUNT*', 16, 

4 • PAGE FAULTS*', 15) 

109 FORMAT (2F 1 0 . 3 ) 

111 FORMAT (12,11) 

1 1 5 FCRPAT(5X, 'CHANNELS USEC *',IJ) 

701 E0RFAT(8(1X,I«)) 

702 FCRMAT(?0(iX,I4)) 

END 
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LOGICAL FUNCTION COHPAR (X, Y, ADIR* DIG, SLOSH, IPMfcAN, tPGOO, 

C STATUS* VMtM, BK8TAT) 

THIS FUNCTION COMPARES TWO PIXEL GROUPS TO DETERMINE 
IF THEV BELONG TO THE SAME CONTOUR* UPDATING 
STATUS FLAGS AS NECESSARY* 

WRITTEN BY PETER C* HILLER IN THE PALL *NO NINTEP OF I STB 

XLA8T • THE X COORDINATE OF THE PIXEL GROUP AT THE FRONT OF 

OUR CURRENT CONTOUR, (USUALLY THE LAST GROUP POUND GY 
GETPIX * EXCEPT IF ME HAO TO SACK UP ) 

YLA8T • THE Y COORDINATE OF THE PIXEL GROUP AT THE FRONT OF 

OUR CURRENT CONTOUR* (USUALLY THE LAST GROUP FOUND BY 
GETPIX » EXCEPT IF ME HAO TO BACK UP ) 

ADJR • A LIST OF ALL THE OIRECTIONALS FOR THIS IP 
ATOP • POINTS TO THE TOP ENTRY IN THE ACTUAL DIRECTIONAL LIST 
DIR • STACK USEO TO ALLOW THE PROGRAM TO BACKUP IN ITS TRACING 
OF CONTOURS WHEN ITS FORWARD PATH IS BLOCKED 
DTOP • POINTS TO THE TOP OF THE DIRECTION STACK 


BIOBM • HAS THE MEAN OF THE CURRENT BLOB GROUP 
BLOBS • HAS THE NUMBER OF PIXELS IN THE CURRENT BLOB 


IPX • THE X COORDINATE OF THE CURRENT INITAL POINT (IP) 

IPV • THE Y COORDINATE OF THE CURRENT IP 

IPMfcAN • THE mean of the current ip 

IPS8Q • THE SUN OF THE SQUARES OF THE PIXEL GROUP IN THE IP 

IPCNT • RUNNING SUN OF THE NUMBER OF IPS 

EXT • BOOLEAN FLAG TO INDICATF INTERNAL OR EXTERNAL CONTOUR 
TRUE ■ EXTERNAL 
FALSE • INTERNAL 


* T 


FVAL • THE CURRENT F»TEST VALUE 
TVAL • THE CURRENT T»TEST VALUE 


REPRODUCIBILITY of the 
ORIGINAL PAGE TS POOR 




t 


REAL MEAN 

REAL IPMEAN(TCHA), IPSSQ(TCHA) 

INTEGER HAFM,HAFN # TCHA,VSIZH,V8!ZV*RSIZ#BLKS,D8!Z, 

C voimh,vojmv # vfil#mips 
integer xlast,ylast 

integer ATQP,DTCP,ADIR( OSIZ)*OIR( OSIZ) 

INTEGER BLOBS 

integer chan 

INTEGER X # Y,GSTAT 
INTEGER BKSTAT(BLKS) 

LOGICAL EXT 

LOGICAL* I STATUS(HAFNiHAFH) 

DIMENSION VMEH (VSIZV,V8IZH,«#TCHA) 

DIMENSION BLOBM(TCHA) 
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C0MM0N/0tM/Ne0L,NRCM,HAPM,HAFN,TCHA,VSUH,VSl2V,R8Xl#NPEC#BLK3, 
A DSIZ,VDIMN,VDIMV,VFIL#PIPS 
COMMON /LAST/ XIAST»VLA8T 
COMMON // ATOP,OTOP 
common/blcbi/blcbn 
COMMON /IPL/ !PX,IPY,IPCNT,EXT 
COMMON /LEVELS/ FVAL, TVAL »NCMA 
COM*ON/PIX/N,M,MAXMN,NEXTB 
C 

COMPARE, FALSE, 

IF ( GSTAT(X,Y, STATUS) ,GT, 3) RETURN 
DO 1 CHAN*?* NCMA 

XVM * MEAN(X,V,CHAN,VMEM,BK8TAT) 

FI s IPSSO(CHAN) • «,0 ft XPMEAN(CHAK) * lPMEAN(CMAN) 

F 2 • SSR(X,Y,CHAK,VM|H,8KSTAT) • 4»,OftXVMftXVM 
IF (Ft ,LE, 0,0 .OR, F2 ,LE, 0.0) RETURN 
T « (IPMEAN(CNAN) • XVM) * SORT ( 12 , 0/ (F 1 ftp 2 )) 

C 

C PERFORM THE T»TE8T ON THE TNG CROUPS 

IF (ABS(T) ,6E, TYAL) RETURN 

C 

C PfRFORM THE F»TEST ON THE TWO 6R0UP5 

F * Ft/F 2 

IF (F ,GE, FVAL ,CR, 1,0/F ,GE, Fv*L) RETURN 
t CONTINUE 

5 C0MPAR«,TRUE, 

IF(GSTAT(X,Y, STATUS) ,NE,0) GO TO 6 

BLOPN«RLOBNft<l 

DO 2 CHAN«2, TCHA 

BLOBM(CHAK) « BLOBM(CHAN) 4 MEAN(X#Y,CHAN, VMEM,BK8TAT) 

2 CONTINUE 
C 

C UPDATE THE STATLS OF THE PRESENT GROUP BEFORE NE GO TO THE NEXT 

6 IF C XL AST t Nk , X )G0 TO 20 
IF ( YL AST ,GT, Y )60 TO 10 

CALI PSTAT(XLAST,YLAST,A0IR(ATCP),2»STATUS) 

return 


to 

CALL PSTAT (XLAST, VLAST, 
RE TURN 

ADIR(ATOP), 

a# 

STATLS) 

20 

IF( XL AST ,GT, X ) GO TO 30 
CALL PSTAT (XLAST, VLAST, 

AOIR(ATOP), 

If 

STATLS) 


RETURN 




30 

CALL PSTAT (XLAST, VLAST, 

AOIR ( ATOP) , 

Sf 

STATLS) 


RETURN 
t NO 
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nftftnoftonoooooooorto 


SUBROUTINE ERR (ERRNU M # ADIR, DIR, STATUS# OUT) 


WRITTEN BY PETER C, HILLER IN THE PALL *N0 WINTER OP t«T« 

ADIR • A LIST OP ALL THE OIRPCTtONALS POR THIS IP 
ATOP • POINTS TO THE TOP ENTRY IN THE ACTUAL OIRECTIONAL LIST 
OIR * STACK USED TO ALLOW THE PROGRAM TO BACKUP IN ITS TRACING 
OP CONTOURS WHEN ITS PORWARO PATH IS BLOCKED 
OTOP • POINTS TO THE TOP OP THE DIRECTION STACK 
STATUS • ARRAY HOLDING THF STATUS FUGS FOR EACH 

PIXEL GROUP, EACH STATUS FUG tS S BITS LONG 
ANO THERE ARE (NROW X NCOLJ/A OP THEM FOR A 
NROW X NCOL PICTURE, THEY ARE MANIPULATED 
WITH A COMPASS SUBROUTINE CALLED GSTAT, 

N • THE HORIZONTAL DIMENSION OP THE PICTURE MATRIX JN PIXELS 
m • THE VERTICAL DIMENSION OF THE PICTURE MATRIX IN PIXELS 
(M AND N MUST BE MULTIPLES OP 2,) 




c 

c 

1 

2 


3 

a 

5 

6 


INTEGER HAFM,HAFN,TCHA,VSIZH'V8IZV,H8IZ»BLKS,0$IZ, 

c vdimh.vdimv, veil, mips 
INTEGER ATOP#f)TOP*AO!R( DSIZ),DIR( OSIZ) 

INTEGER ERRNUM, X, Y, OUT(HAFN) , STA(N) 

LOGICAL*! STATUS (HAFN,WAPM) 

Common /DIm/ncOL»NROm # HAFM,HAPN,TCH A, V8IZh ( VSXZV,RSIZ,NREC,BLK3, 
* OSIZ, VOlMM,VOIMV,VFIL, MIPS 
COMMON // ATCP,DTOP 
COMMQK/PlX/N,M,MAXMN,NEXTB 

DATA STA/!HN,lHA,lMD,lHT,!HE,lMA,lHO,!HT,tH*/ 

IM ERRNUM ,LT, ! ,OR, ERRNUM ,GT, 10 )G0 TO SO 


ao 

ai 


GO T0( 1,2, 3, A, 9, 6,7,6,9,10), ERRNUM 

»RITE (6,100) MAXMN 

STOP 

WRITE (6, 101) 

INOX ■ o 

DO A 1 Y«l, HARM 


eproducibiuty OP TOE 
nxr-TVTM. PAGE IS POOR 


DO AO Xa 1 , H AFN 

INOX a STATUS(X,V) 

IF (INOX ( GE, 0 .AND, INOX ,LE, 7) GO TO AO 
INOX a 8 

OUT (X ) a STA(INDXM) 

CONTINUE 

WRITE (6,600 ) Y , CUT 
CONTINUE 
STOP 


WRITE (6, 102) 
STOP 

WRITE (6, 103) 
STOP 

WKITE(6,10A) 


STOP 

WRITE (6, 105) 
STOP 
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7 M»ITE!b,l06> 

STOP 

8 *RITMfc*iOn 

STOP 

R *R!TE!6«108) 

STOP 

10 WRITE (6# ! 09) 

STOP 

C 

SO *«RITE (6*51 ) 

STOP 0 
C 

p " ftHtllflltimMIIMmilllllT tlMlMItllltlOtll-tllltKMltlt 

ENTRY ERRMSG C X,V ) 

c 

ftRlTMfc.llO) 7, Y 
C 

C ERRTRA IS IBM'S SUBROUTINE TRADEBACK ROUTINE 
CAUL ERRTRA 
STOP 


C 

S| FORMAT! '0ERR0R NUMBER PASSEO TO ERR IS LESS THAN 0 OP GREATER THAN 
, 10') 

100 FORMAT ( 'OTOPCPL GREATER THAN 1,13) 

101 FORMAT! 'OTOPCPL LESS THAN 7F.RC'*//) 

10? FORMAT(IOEOF OR NO INPUT DATA*) 

10T FORMATCOOIR LIST OVERFLOW • ) 

100 FORMAT ! 'OPP INTER TO TOR CF OIRECTIONAL LIST HAS GONE NEGATIVE 1 ) 

ION FORMAT! 'OCONFLICT CF DIRECTIONS ON DIRECTION LIST*) 

106 FORMAT (’001 RECTI ON AL LIST OVERFLOW) 

107 FORMAT! 'OATOP GREATER THAN DCNT') 

1 OB FORMAT! »OEOF DETECTED ON THE DIR FILE') 

1 0R FORMAT ! * 0 X AND/CR Y > SPOIM AND/OR X AND/OR Y * 0«> 

110 FORMAT!' ERROR IN PIXEL X«',I<I,» Y*'#I<*> 

600 FORMAT!' R0w'»I«#2X#10OIl) 

END 


206 


kM < « ww-rri^: ■>• tv* ^ ■ 


SUBROUTINE GETPIX (X, V, IPDONf , ADIR» DIR, 3L0BM, IPMEAN, IP88Q, 

C STATUS* VMEM, BKSTAT* OUT) 

WRITTEN BY PETER C, MILLER IN THE P*Ll AND WINTER OP 1974 

THIS SUBROUTINE LOONS POR PIXEL GROUPS TO ADO TC THE 
CONTOUR, THE STATEMENT NUMBER GROUPS (X00,X2S»X90,X75 WHERE X 18 1* 
2*1* CR 4) REPRESENT THE DIPPERPNT DIRECTION OP ENTERING 
PIXEL GROUP, THE ARRAY * AOIR * SERVES AS A LIST OP THESE DIRECTIONS 
THAT WERE TAKEN TO TRACE OUT THE CONTOUR, THE ARRAY »DIR» IS A 
STRING THAT 13 LET OUT AS THE CONTOUR IS TRACED OUT 80 THAT IP WE 
HAVE TO BACKUP WE CAN FIND OUR WAY RACK* THE PUNCTION COMPAR IS USED 
TO COMPARE THE BLOB PIXEL GROUP (PRESENTLY THIS INCLUDES ONLY THE IP 
PIXEL GROUP BUT COULO BE MADE TO INCLUDE ALU GROUPS THAT 
CAN BE ADDEO TO THE BLOB GROUP* 

(X* Y) ARE COORDINATE PAIRS, 

X • ON ENTRY CONTAINS PIXEL GROUP TO START LOOKING PROH 

ON EXIT IT CONTAINS NEXT GROUP TO ADO TO THE BIOS 
IF ONE EXISTS, 

V - SAME AS x BUT V COORDINATE 

IPDONE • FLAG TO TELL MAIN PROGRAM "E ARE DONE WITH THIS CONTOUR 

IPX • THE X COORDINATE OP THE CURRENT INITAL POINT (IP) 

IPY • THE Y COORDINATE OP THE CURRENT IP 

IPMEAN . THE MEAN OP THE CURRENT IP 

IPSSG • THE 81H OF THE SQUARES OF THE PIXEL GROUP IN THE IP 

IPCNT • RUNNING SUM OF THE NUMBER OF IPS 

EXT • BOOLEAN FLAG TO INDICATE INTERNAL OR EXTERNAL CONTOUR 

RKPRODUCtelUT* OF THE 


FALSE ■ INTERNAL 


ORIGINAL PAGE IS POOR 


XLA3T 


YLAST • 


THE X COORDINATE OF THE PIXEL GROUP AT THE FRONT OP 
OUR CURRENT CONTOUR, (USUALLY THE LAST GROUP FOUND BY 
GETPIX , EXCEPT IF WE HAD TO BACK UP ) 

THE V COORDINATE OF THE PIXEL GROUP AT THE FRONT OF 
OUR CURRENT CONTOUR, (USUALLY THE LAST GROUP FOUNO BY 
GETPIX , EXCEPT IF W£ HAD TO SACK UP ) 


BLORM . HAS THE mean OF THE CURRENT BLOB GRCUP 
6LPBN • HAS THE NUMBER OF PIXELS IN THE CURRENT BLOB 

ADIR - A LIST OF ALL THE OIRECTIONALS FOR THIS IP 
ATOP • POINTS TO THE TOP ENTRY JN T*E ACTUAL DIRECTIONAL LIST 
OJR - STACK USED TO ALLOW THE PROGRAM TO BACKUP IN ITS TRACING 
OF CONTOURS WHEN ITS FORWARD PATH IS BLOCKED 
OTCP • POINTS TO THE TOP OP THE DIRECTION STACK 

N • THE HORIZONTAL OIMfNSION OP THE PICTURE MATRIX IN PIXELS 
m • THE VERTICAL DIMENSION OP THE PICTURE MATRIX IN PIXELS 
(M AND N MUST BE MULTIPLES OF 2,) 

I • ? I I mill i tit *tf t f t | TTf (Tftfftttt'ff If Iff It! HtttMM*ttf mtftftM 


REAL IPMEAN ( TCHA ) , IPSSQ(TCHA) 
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INTEGER HAFM#HAFN # 7CMA# VSIZM# V8IZV#RSIZ»RLK8#D8IZ| 

C VDIMM,V0!MV,VFIL 
INTEGER XLAST.VLAST 
INTEGER BtOBN 

INTEGER 8KSTAT (8LK8) # CUT(HAFN) 

INTEGER ATOP#OTCP#AOIRC 0SIZ),0IR( 08IZ > 

INTEGER X,V 
LOGICAL. EXT 
LOGICAL COPPARiIPOCNE 
LOGICAL*! STATUS (MAFN#HAPM) 

DIMENSION VNEH (VS!ZV f V3tZH»«fTCHA) 

DIMENSION BLOBM(TCHA) 

CO*mPN/DIM/NCPL#NRCK#MAFN#HAFH # TCNA# V$HH# VSI?V#R8IZ#NREC#BLK8# 

* 0S1Z,VDIMH,V0IMV,VFIL#MIPS 
COMMON /IPL/ IPX»IPY,IPCNT,EXT 
COMMON /LAST/ XLAST«YLA8T 
COMMCN/BLOBt/BLOBN 
common // ATOP#DTOP 
common /pix/n,m,maxmn,nextb 
c 

1 XLASTSX 
YLAST«Y 

LDIR»ADIR(ATCP) 

GO TC(100#200#300#400)#LOIR 
C 

C LOON ON THE LEFT sioe for next pixel GROUP 

100 IF C YLAST ,Lt, IPV >G0 TO 125 
VBYLAST-2 

IF ( COMPA»(X, Y,AOIR,DIR,BLOBM, IPmEAN.IMSSO#STATUS # VMEM # BKSTAT) ) 
c GO TO 500 
VsYLAST 
C 

C LOOK AHEAD FOR THE NEXT PIXEL GROUP 

125 IF C XtAST ,GE, N-l )GC TO 150 
XsXLAST*2 

If ( COMP AR (X,Y» ADI R»0IR,BL0BM # iPMfcAN# JHS8Q# STATUS# VMEM»BK3TAT ) ) 

C GO TO 500 
XaXL AST 
C 

C LOON TO THE RIGHT SIDE FOR THE NEXT PIXEL GROUP 

150 IF C VLAST ,GE, *•! IGC TO 175 
Y»VLASW2 

IF ( CO M PAR(X f Y#AOIR#OIR#BLOBM« IP mE.An»IMS$Q#STATU8»VMEM # 8K8TAT) ) 
C GO TO 500 

v«ylast 

THE If TEST CATCHES CONTOURS MAOE UP OF ONLY AN IP 
HAVE TO BACKUP CAN'T FINO A PIXFL GROUP THAT HILL 
PASS THE F»TEST ANO T*TEST 
175 IF C ATOP ,E0, 1 3GC TO 510 

CALL PST AT ( XL AST # VL AST# AOIR ( ATOP) #3» STATUS) 
dtop«ctop*i 

IF(OTCP,LT t O) CALL ERR(5, A0IR,0IR, STATUS, OUT) 

XL AST»Xl AST *2 
ATOPaATCP+1 
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IPtATOP *01, 0812) CALL ERR<7, AOlR.Ol*. STATUS, OUT) 

ADXR(ATOP)Rl 

XtXLAST 

IP C OTOP ,EQ, 1 )00 TO 910 

CO^OCiSojMsJoOOiflTSJiLOIP oSai 0 ?! 1 !^ 0P TO 

c ORIGINAL PAGE IS POOR 

200 2F( XLA8T ,00, h*\ )C0 TO 229 
XaXLA8W2 

IF ( COPPAR(X,V,AOIR,OXR*BLOBP, XP*EA«i,XP880, STATUS, VMC*,SNOTAT) ) 
C 60 TO 900 
XaXLABT 
C 

22 5 IF ( VLA8T ,6E, H-l )GO TO 290 
V«VLA8T«2 

IF ( C0MPAR(X*V, AO IR* DIR* BLOBP* XPPE AN* XPSSQ, STATUS, VHCP,BKSTAT) ) 
C 60 TO 900 
VaVLAST 
C 

290 IF ( XLABT ,LI , 2 ) 60 TO 279 
X«XLA8T*2 

IF ( COMPAR(X, V, AOIR*OIR*BLOBP* IPPEAN* IP88Q* STATUS, VMEM,SK8TAT) ) 
C 60 TO 900 
XaXLAST 


279 CALL PSTAT (XLAST, VLAST, ADXRUTCP), 0* STATUS) 
OTOPaOTOP*! 

IF(OTCP,LT,0) CALL IRR<9,A0IR,DXR, STATUS, OUT) 

UASTaVLASW 

ATOPaATOPM 

IF (ATOP ,6E , OSIZ) CALL ERRC7, ADIR,0XR, STATUS, OUT) 
AOIR(ATOP)a« 

VaVLAST 

IF C OTOP ,EQ, I ) 60 TO 9)0 
LOIRaOlR(DTOP) 

GO TO ( 179*290*129*000) * LOIR 


500 IF ( VLAST .Ct, P«1 ) GO TO 129 
VaVLA3U2 

IF ( C0PPAR(X,Y,A0IR,0IR,BL0BP, IPPEAN,IP8SQ. STATUS, VHEPfBXSTAT) ) 
C 60 TO 900 
VaVLAST 

329 IF ( XLAST ,LC* 2 )60 TO 190 
XBXLAST-2 

IF ( C0PPAR(X*Y*ADIR*0IR*BL0BP*XPP|AN,XP8S0, STATUS, VW,BK8TAT) ) 
C 60 TO 500 
XaXLAST 


350 IF ( VLAST ,LC, IPV )60 TO 179 
VaVLAST«2 

IF ( C0MPAR(x*V*A01R*DIR*BL0BP*IPpEAN*IPS 80, STATUS, VPEPfBKBTAT) ) 
C 60 TO 900 
VaVLAST 
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375 CAUL P8TAT (XLAST# YLAST# ADIR(ATOP)# t# STATUS) 

OTOP«DTOP*t 

IF(0TOP,LT,O) CAU FPP(5#ADIR#DtR#8TATU8#OUT) 

XLA8T«XLA8Ta2 

ATOPsATOP+i 

IPCATOP ,GE, 0812) CAU t RP (7# ADIP# DIR# STATUS# CUT) 

ADlP(ATOP)»l 

XVXIA8T 

IF C OTOP ,EG, I )C0 TO 510 
LOIRcDIR(DTOP) 

CO TC(600#27S»350,425)»LDIP 
C 

aoO IF C XLAST «IC# 2 )G0 TO 429 
XSXUA8T ml 

IF ( COPPARtX# Y#AOIP#0 IP #RUOBP»IPFCAAi# IPS80# STATUS #VMEP#SK8T AT) ) 
C 60 TO 900 
XsxtAST 
C 

425 IF C YLAST ,Lf, IPY )60 TO 490 
VtYUAST.2 

IF ( C0MPAP(X#V#A01P#D!P#8l0B*«!P»CAK'!P88Q#STATUS#VMt:M#BKSTAT) ) 
C 60 TO 900 
f •YLAST 
C 

450 IF J XLAST ,Ct, N-l )60 TO 479 
X*XLASW2 

IF ( eCMPAe(X,V,AO!R#0!R#BLOBK#IPMEAN»lP88O#8TATU8#VHCtt#BK8TAT) ) 
C 60 TO 500 
X*XL AST 
C 

475 CALL PSTAT (XLAST# YLAST# AOIP(ATOP)# 2* STATUS) 

DT0P«CT0P»1 

IF(OTOP,LT.O) CALL EPP(5#AOIR#OIP#STATuS#OUT) 
vla$t»vlast*2 

ATOPsATOP«I 

IFCATCP ,GF# OSIZ) CALL fPR(7,ADIR#D!P, STATUS, OUT) 

A0IR(ATOP)«2 
YSYl AST 

IF C PTOP ,EQ, 1) GC TO 510 
LOIPsOIN (OTOP) 

60 TO (125 # 000 #575 #450)# LOIR 
C 

500 IF C X ,NE, IPX )G0 TO 520 
IF ( Y ,Nfc, IPY )G0 TO 520 
IPOQNM.TRUt# 

GO TR 523 
520 IPDOKf B.FALSfc, 

523 A T OPsATOP* 1 

IF (ATOP ,Gf, 0812) CALL EPP(7#A0IR#DIR, STATUS, CUT) 

DTPP*CTOPM 

c 

IMPTCP »GT # OSIZ) CALL ERR(4# AD)R# 01*# STATUS# OUT) 

C 

C Wfc *0 PIT THF DIPFCTIO* t*E LEAVE LAST GROUP IN "AOIR* AND "DIP" 

IF ( X ,NE# XLAST )G0 TC 530 
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non 


c 


IF ( V ,QT a VLAIT >00 T0989 
A0JRCAT0P)a« 

DIR{CT0P>M 

RETURN 


C 


c 


c 

c 


989 DIRCDTOP)** 
A0IRCAT0P)»E 
RETURN 


990 IFC X V 0T« XLA9T >00 TO 900 
DIR(DT0P)«3 
AD|RCATOP)»I 
RETURN 

940 DIR(0T0P>«! 

A0XR(AT0P>«t 

RETURN 


EPRODUCIBILOT OF TOE 

iRIGINAL page is poor 


THIS ERR 18 AN IMPOSSIBLE CONDITION AND 8H0U10 NEVER HAPPEN 
600 CALL ERRC6) 


ME HAVE BACKED UP TO THE IP ANO HURT 
TELL MAIN PROCRAP NE ARE OONE NfTH THI8 CONTOUR 
510 IPDONEa.TRUE, 

RETURN 

ENO 
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INTEGER FUNCTION G8TAT (X# V# STATUS) 

ENTRY POINTS 6STAT* PSTAT# SIT 

LISTED RPtON APE All POSSIBLE STATUS VALUES 
► • "MN8 NOT pN ANY CONTOUR 80UN0AWV (NOT TO BE CONFUSED NITH 
TNf **N * IN COMMON SLOCK /PJX/ ) 

A • ”EANS start OF A CONTOUR MHpN SCANNING LEFT TO RIGHT 
0 - "JANS f NO OF CONTOUR WHT.N BCANNlNU prom LEFT TO RIGHT 
T • means !T«S In THE MIDDLE SOMEWHERE 

NOT IN CONTOUR IN CONTOUR 

N a 0 

At! A a 5 

0 a 2 0 • 6 

T a i T • T 

( NOTE Na« IS AN IMPOSSIBLE COnOITICN ) 

TMf STATUS IS CAlCUtATCO 0T MINING THE PRESENT STATUS 
IN THE PRESENT PASS TABLE, T*E « USING THIS VALUE IN 
THE NEa STATUS TABLE ALONG HlT» THE PAST STATUS VALUE, 

PRESENT PASS STATUS TABLE 


DIRECTION OUT OF 
THE PIXEL GROUP 


* 

UP 

* 

DUN* • 

* 

OR 

* 

OR * 

* 

RIGHT 

* 

L 4 < 

LEFT « 

UP * 

lllt|R| 

IS' 

* 



IRfCTION 

OR 

» A 

• 

T * 

INTO 

LEFT 

* 

* 


THE 

***#«! 


>***< 


PIXEL 

BONN 

* 

* 


GROUP 

OR 

* T 

* 

0 • 


RIGHT 

♦ 

# 

»***< 




NEa STATUS TABLE 


PRESENT PASS STATUS 


I 


PREVIOUS 

PASS 

STATUS 
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c 

c 



IMPLICIT INTEGER*® (A«I> 

INTEGER** PREGTACAf A), NGN|TA(A 9 » 

LOGICAL*! GTATUG (HAPNfHAPH) 

CPMMOK/DlH/NCOLf NROMfHAPN»HAPNf TCHA 9 VGlZHf VBZZV.RGlZf NRECf GLKGf 
• OG|I 9 VO!MN 9 ¥OIPV 9 VP!L#PIH 

DATA PREGTA/ \ $ f 9 | 9 | 9 2, 2 9 S 9 If « 9 t 9 S 9 S# S 9 )• t 9 1/ 
OATA NEmBTA/ | 9 1# S 9 1, 2, 1 9 2f If )» t 9 If 1/ 

DATA CBIT /A/ 




entry ggtat gets the current gtatug op the pixel GROUP 

LOCATION (X 9 V) NHERE X 18 THE COLUMN NUMBER AND 
V ts THE RON NUMBER OP THE DEGIREO LOCATION. 


GGTAT • GTATUG (X/2*! fV/2+!) 
RETURN 


ENTRY P8TAT (X, V, th, OUTf GTATUG) 

ENTRY P8 TAT GTOREG the nem gtatug op pixel group 

L0CATE0 AT (XfV) 

IGGTAT • 8TATu8 (X/?YlfV/ 2 M) 

PGTAT ■ PRE8TAC IN, OUT ) 

IGGTAT ■ NENGTAC IGGTATYlfPGTAT ) REPRODUCIBILITY OF THE 
GTATUG (X/2 *i f V/ 2 M ) ■ IGGTAT ORIGINAL PAGE IS POOR 

RETURN 



v 

I 


ENTRY GET (Xf Vf GTATUG) 

ENTRY GET 8ETG THE INCONTOUR GIT ON POR PIXEL GROUP (XfV) 

BITCMK • 8 TATUG(X/ 2 flfV/ 2 «!) 

IGRftLTtlCRCCGITfOITCHK) 

8 TATU 8 tX/ 2 »lfY/ 2 Tl) ■ LGRGLT 

GE T ■ 0 

RETURN 

END 
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LOGICAL FUNCTION IPCPAR (X* V, XCPL, Tf.ML, VMEM, 0K8TAT) 


THIS FUNCTION COMPARES TPO PIXEL GROUPS TOGETMEP TO 8 CE IP 
THEY ARE STATISTICALLY OIPPERfNT ENOUGH POX (X, V) TO SI 
A ^1* IP * 

NRITTEN HV PITER c* PULES IN TPfc PALL and RXnTCR OP l*7R 
MODIFIED St JULIA m, MOOSES, DECEMBER 1*77 

TCPCPL • TCP OP TNE C0MPAR80N POINTER LIST 
XCPL • X COORDINATE OP THE PIXEL UROUPS IN TME CPL 
XCPL • Y COORDINATE CP THE PIXEL GROUPS IN TME CPL 
PVAL • TME CURRENT P»TE8T VALUE 
TV At • THE CURRENT t-test value 


* 


PEAL MEAN 

INTEGER XCPLCMAXMN) # VCPL(MAXPN),T0PCPL 

INTEGER MAFH, MAPS TCMA, VSUH# V8IZV, RSIZ, 01*8, CSII# 

C VOJMM,VOIMv,VML 
INTEGER x,v,gstat, chan 
INTEGER BKSTATCBLKS) 
dimension vmem (VSIZV,V8IZM,«,TCMA) 

COMMCN/DIH/NCCL # NRCN*MApM,MAPN,TCMA*VSllM,VSlZV,RStZ,KRCC#SLR8# 

* 08TZ#vniMM,vniMv,vPlt#PlPS 
CC"»rN/PIX/N,M,MAX»N,NEXTB 
COMMON /CPL /T CPC FI 

'‘Ommon /LEVELS/ EVAL,TVAL,NCMA 
C 

IPCPAR*, FALSE, 

C 

DO 1 CHAN«1,NCHA 

XVM S MEAMX,V,CHAK,VM|M,BK8TAT) 

XL VL M * MEAK(»CRLCTCPCPL)»TCPL(TOPCPL), CHAN, VMEM, B*STAT) 

PI * SS0(XCPL(T0PCPL),TCPLCT0PCPL),C"AN,VMfM,8KSTAT) 

• • «,0*XLVLM*XLVLM 

E2 • SSQ(X,V, CHAN, VMEM, BKSTAT) • «,0*XVM*XVM 
IE CPI , LI, 0,0 ,0R, P2 ,LE« 0,0) RETURN 
T s (XLVLM • XVM) « SORT (12,0/(E UE?) ) 

IE (ABS(T) ,GE , TVAL) RETURN 
F * EI/E2 

IP (p ,r.E, PVAL ,0R, 1,0/P ,GE ,PVAL) RETURN 
1 CCNT1MF 
C 

IPCPAR*, TRUE , 

RETURN 

END 
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REAL FUNCTION MEAN (X, V, CHAN, V*(N, RftSVAT) 


C 

C 

c 

c 

c 


THIS SUBROUTINE COHFUTIS TH| HlAN OF A RIKEL OROllP 
MRITTfN ST PETER C ( HILLER IN THf FALL *ND f IN TIN OF IOTA 

. | t M( itttM MM t, It tT|t ImTi M I • * ' * 

««•*««• * «**««« **«*«* *****«**•*******•«***•♦**»♦••**•••••••*••*• ***♦♦•♦ 


INTEGER OKSTATCSLKS) 

INTEGER X,V#CHAN 

INTEGER NAFF#NAFN # TCHA # VS!tN'VS!2v # RS!t'SUCS»08!2 # 

C VOIHH f VOIHV»VFUfFIFR 
DIMENSION VM|N (VGI2V,V$I2H,«,TCHA) 

COMWCN/OIH/NCOL#NROH»HAFN # HAFN»TCMA»VSUH f V9I2V,RSl2 # NREC«SlRS, 
• 08I2fV0IHH»V0IFV»VFIL#FlFS 
COMMON/FIk/N#H,NAXHN,NCKTS 
COMMON /I PL/ IPX#IPY*IPCNT#EXT 


MIAN ■ ( F|XCt (X» V#CHANf VM|H#tlRSTAT) * 

C FIXIKXaI «T fCHAN, VHEHfSRSTAT) ♦ 

C FIXEL(X,Ya| ,CHAN, VHEHjSXSTAT) ♦ 

C PIXEL CXa| # V#|,CHAN # VM|H # BKRTAT) ) / «,0 

RETURN 

ENO 




f 
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SUBfiCl TUf NEwIP(DCNE, XCPL#VCPt, STATUS, OUT. AO IR#DIR*VMEM#BKSTAT) 


tH!9 SUBROUTINE LOCATES THE INITIAL PO|*T FOR 
A MEL CONTOUR* 

wRITTFK BY PETER C* MILLER IN THE FALL AMO NIKTER OF I47B 
MODIMFD BY JULIA M* PODGES* DECEMBER 1^77 

TOPCPL - TOP OF THE COMPARISON RENTER LIST 
XCPL • X COORDINATE OF THE PIXEL GROUPS IN THE CPL 
XCPL • Y COORDINATE CP THE PIXEL GROUPS JN THE CPL 
N • THE HORIZONTAL DIMENSION OF THE PICTURE MATRIX IN PIXELS 
m • THE VERTICAL OIMENSION OF The: PICTURE matrix in pixels 
(m ANO K must BE MULTIPLES of 2) 

MAXMN - MAXIMUM OF M ANO N 

IPX • THe X COORDINATE OF TME CURRENT INITAL POINT (IP) 

IPV • THE Y COORDINATE OF THE CURRENT IP 

IPMean » THE MEAN OF THE CURRENT IP 

JPS8Q • THE SIM CF THE SQUARES OF T*f PIXEL GROUP IN THE IP 

IPCNT * RUNNING SUM CF THE NUMBER OF IPS 

EXT • BOOLEAN FLAG TO INDICATE INTERNAL OR EXTERNAL CONTOUR 
TRUE « EXTERNAL 
FALSE • INTERNAL 

DONE • SEE DESCRIPTION IN MAIN ROUTINE 
TOPCPL • POINTS TO TCP CF THE CPL LISTS 


: i i f *t . tiTii » tifn f n htM m ti t Hit t» ' t » »f»t« * MMttn* tmtii ti • i »i 
** 444 A 4 AOAAAA«AAAAA 44 *AAA«AUAA 4 iS • 4 * 4 A * 4 + * A S A « A 44 # 44 BS A *♦ 4 4 44 *« 

c 

INTEGER AOIR(DSIZ)* OIR(CSIZ) 

INTEGFR BKSTAT(8LKS), OlT(HAFN) 

INTEGER XCPL CMAXMN),YCPL(MAXMN), TOPCPL 
INTEGER Y* X 

INTEGER START, STAT, GSTAT 

INTEGER HAFM,HAFN,TCHA,VSlZH,VSlZV,RSJZ,BL*S f CSlZ, 

C VDlMh,VOIMV,VFIL 
LOGIC AL EXT ,DCNE , IPCPAR 
LOGICAL* 1 $TATUS(HAFN,MAFM) 

OThenSION VM£m (VSIZV, VSIZH,«,TCHA) 

C 

COMMON /IPL/ IPX, IPV, IPCNT, exT 

COM**ON/PIX/N,M,MAXMN,NfXTB 

COmhcn/CPL/TOPCPL 

CO»*mpn/DIM/ncOL,nRcm,haen,haFM,tChA,vSIZh,VSIZV,RSIZ,NREC,BLKS, 

• 0STZ,V0IMH,Y0IMV,VFIL,MIPS 

c 

c 

ext«,false* 

IP t IPX ,EG* N« l )GC TC 8 
TOPCPLAO 
Y«IPY 
t 

C BUILO UP THE CPU TC THE LAST IP 

DO 3 X*1,IPX,2 

STAT * LANC(GSTAT(X,Y, STATUS) ,3) ♦ 1 
GO TO (3, I, 2, 3), STAT 


l 
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c 

c 


c 

c 


c 

c 


c 

c 


c 

c 


c 

c 


c 


c 

c 


c 

c 


ADO COORDINATES TO CPL LIST 

1 TOPCPL ■ TOPCPL At 

IF (TOPCPL c GT t PAXPN) CALL ERRC1 , AOtR # DXR,STATUS#OUT) 
XCPLCTOPCPL) ■ X 
VCPL (TOPCPL) « V 
GO TO 3 

OELETE LAST COORDINATES PROP CPL 

2 TOPCPL • TOPCPL • 1 

IF (TOPCPL a LT a 0) CALL ERR(2#ADIR»DIR,STATU3#0UT) 

3 CONTINUE 

START* I PH r ° R * *** lP 8TARTS REPRODUCIBILITY OF THE 

00 T Xi$TART#Nf 2 ORIGINAL PAGE IS POOR 

STAT • LAN0(GSTAT(X # V r STATU5)»3) ♦ 1 
GO TO (6, A, 5,7), STAT 

ADD COORDINATES TO CPL 
A TOPCPL • TOPCPL ♦ 1 

IF (TOPCPL a GT a PAHPN) CALL ERR(l, ADIR, DIR, STATUS, OUT) 
VCPL(TOPCPL) • V 
XCPL(TOPCPL) ■ X 
GO TO 7 

DELETE LAST COORDINATES FROP CPL 
5 TOPCPL • TOPCPL • I 

IF (TOPCPL a LT a 0) CALL ERR(2,ADlR«DlR, STATUS, OUT) 

GO TO 7 

TEST FOR NEW IP 

A IF (TOPCPL a EQ, 0) GO TO 15 

IF (.NOT, IPCPAR(X,V,XCPL,YCPL,VPEN,ttK8TAT)) GO TO l« 

7 CONTINUE 

8 IF C IPV ,GE . P*l )G0 TO 13 
START»JPV ♦ 2 

DO 12 V«ST ART ,N,2 
TOPCPL * 0 
DO 12 XS|,N,2 

STAT « LANDCGSTAT(X,Y, STATUSES) ♦ 1 
GO TO (9, 10,11,12)* STAT 

CHECK FOR NEW IP 

9 IF (TOPCPL a EQ a 0) GO TO 15 

IF (.NOT, IPCPAR(X # Y # XCPL#VCPl,VMlP,BKSTAT)) GO TO 18 
GO TO 12 

ADD COORDINATES TO TOP OF CPL 
10 TOPCPL ■ TOPCPL ♦ I 

IF (TOPCPL a GT a WAXNN) CALL ERR ( 1 * AO IR,C1R, STATUS* OUT) 
YCPL(TOPCPL) « Y 
XCPL(TCPCPL) ■ X 
GO TO 12 
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4 


f 

f. 


c 

c 


c 


c 

c 


DELETE LAST COORDINATES PROP CPL 

11 TOPCPL « TOPCPL • 1 

IP (TOPCPL ,LT, 0) CALL ERR(2# ADI*,DIR,8TATU8#0UT) 

12 CONTINUE 

13 DONE*, TRUE, 

RETURN 

1* EXT«,TRUE, 

10 DONIs, FALSE, 

8FTS IPX AND IPY TO COORDINATES OF * 1 ' IP 
IPX8X 
IPVOT 
RETURN 
END 





| 

\ 
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*1 vCTlf ' Pixel (X# V, CHANUM, QKSTAT) 

t 

r this FtkCTir. makes THE PICTURE LCOK L IKIi THE WHOLE 
t 1HJX.C I\ Wk>t'«V AT THf SAME TIME TO THE REST OF THE 

V program, this IS accomplished BY KEEPING FOUR segments FROM 

EACH CHANNEL IN ARRAY VMEM, 

JAvps J. BE SEMI R 16 JULY W« n^!? 0DUCWlLrr Y OF THF 

MODIFIED BY PETER C, MILLER OCT, 2), |07<l ORr(?r ’A T - ^ aa 

MODIFIED BY PETER C, MILLER MAR, 2U, 1*76 

BftSTAT • ARRAY OF FLAGS USEO TO TELL *HlCH SEGMENTS OF 

PICTURE FILE IS CURRENTLY IN CURE, IS ZERO IF NOT 
IN CORE, ELSE IT POINTS TO ITS LOCATION IN VMEM, 

MEM - ARRAY POINTING TO BLOCK IN WHICH MAS SEGMENT W| NEED 
X - * COORDINATE OF THE OESIREC PIXEL 
V • V COORDINATE OF THE DESIRED PIXEL 
Chanum • CHANNEL number OF the desired pixel 
HI ft HOLDS THE RECORD NUMBER OF THE RECORD BEING LOAOED FROM 
HANOOm FILE, 

VMfM . VIRTUAL MEMORY FOR OUR PICTURE 

N - THE HORIZONTAL DIMENSION OF THE PICTURE MATRIX IN PIXELS 
m • THE VERTICAL OIMFNSION OF THE PICTURE MATRIX IN PIXELS 
(M A NO n MUST BE MULTIPLES of 2,) 

MAXMN 8 (MAX(M,N)) /2 

PIXEL GROUP • IS A GROUP OF FOUR PIXEL ELEMENTS, 

WHOSE COORDINATES ARE GIVEN BELOW, 

( J , K ) , CJfRti) , (JaI , ft J , (Ja1,Ka1) 

this DEFINES one pixel group where j is defineo 

BY J«1,I,5,,,,,N«1 WHERE N is THE HORIZONTAL 
SIZE OF THE PICTURE 

And K>1,},S,,,,,H»| WHERE M is the vertical 
SIZE OF THE PICTURE 





HfcAL INI TV 

INTEGER HAFW'HAFN, TCHA, vS I ZH, V8 I ZV,RS1Z,BLK8,08IZ, 

C voimh,voimv,vfil,mips 

INTEGER X, Y, CHANUM, BftSTAT(BLKS), CHAN, (41 ),BLK 
JNTEGEH PGCNT 

DIMENSION VMEM (VSIZV,VSIZH,«,TCHA) 

CGMMrN/niM/NC0L,NR0W,HAFM,HAFN,TCHA,VBUH,V8IZV,RSIZ,NREC,BLKS, 
* DSU,V0IMH,VDIMV,VFIL,MIPS 
COhmcn/VMFmHY/PGCNT 
COMMON /PIX/N,M, MAXMN, NEXTB 
COMMON /IPL/ IPX,IPY,IPCNT,£XT 
C 

C SEE IF X ANC Y are legal values 

IK X ,LT, 0 , OR , x ,GT, N JCALL ERRM8GI X,Y ) 

IF ( Y ,LT, 0 .OR, Y ,GT, M )CALL ERRHSGC X,Y ) 

c 

C CHECK TO SEE CHANUM IS A LEGAL VALUE 

1FC CHANUM ,LT, 0 ,0R, CHANUM ,GT. TCHA JSTOP 11 

C 
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c calculate reguireo block 

IB 8 C(Vl)/V8t2V)*V0IKH ♦ ((X*S)/V8!4H) ♦ | 

KX s M00( XM# VSIZH) ♦ i 

kv s muo< vm# vstZV) ♦ 1 

c 

C SEE IF BLOCK 18 IN CORE 

IF ( 8K8TATC IB ) ,NE, 0 )GO TO I 
C 

C IT »ASN'T 80 GET IT 

NEXT6 • NEXTB ♦ 1 
IF C NEXTB ,GT t 1 )NEXTB ■ 0 
NEXT a NEXTB ♦ t 
BK5TATC HEBtNEXT) ) a 0 
BK8TAT C IB ) a NEXT 
*E»( NEXT ) 8 18 
C 

C RP An IN NFEOFO SEGMENT OF PICTURE FOR ALL CHANNELS 

DO a CHANsi, TChA 

HLK 8 (CHAN • I) * (BLK8 • t) ♦ Is 

READ(VFIL'BLK) (CVMEM (I* J,NEXT,CHAN) flat# V8IIV) *Jal, VSIZH) 

4 CONTINUE 

c 

C INCREMENT THE PAGE FAULT COUNT 

PGCnT a PGCNT ♦ t 

2 PIXEL • VMEM(*V,KX,8K8TAT(IB)#CNANUN) 

RETURN 


ENTRY IMTV (X, VMEM, BK8TAT) 

IMTALIZE VIRTUAL SYSTEM 

DU 20 laj t BINS 
BKSTAT(I) a 0 

20 CONTINUE 
C 

00 21 131*4 

MEM(I) a BLKS 

21 CONTINUE 
NEXTB a 0 

C 

C THIS 13 JUST TO AVCIO A DIAGNOSTIC 

IMTV a 0 
RETURN 
ENO 
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SUBROUTINE SICS (ADXR* STATUS) 


SXCB • SET XN CONTOUR BIT 

WHICH IS THE high ORDER BXT in each THRtE«BXT STATUS GROUP* 

THIS HEAN8 THAT THIS PIXEL GROUP IS IN THE BOUNDARY OP 
SOME CONTOUR* 

WRITTEN BY PETER C* HILLER IN THE PALI AND PINTER OP |GT8 

AOIR • A LIST OP ALL THE 0IRECTI0NAL8 POR THIS IP 
ATOP • POINTS TO THE TOP ENTRY IN THE ACTUAL DIRECTIONAL LIST 
DIR • STACK USED TO ALLOW THE PROGRAM TO BACKUP IN ITS TRACING 
OP CONTOURS WHEN ITS FORWARD PATH IS BLOCKED 
DTOP • POINTS TO THE TOP OP THE DIRECTION STACK 
IPX • THE X COORDINATE OP THE CURRENT INITAL POINT (IP) 

IPY • THE V COORDINATE OP THE CURRENT IP 

• 1 • t I • •titMMtH MHItlTMTTf fTTTtf r ff » M T ( T • t M ♦ t t « • t t t t f If ♦ t 



i 



INTEGER x» y#direct#gstat 
INTEGER ATOP'DTOPfAOXRC D8IZ) 

INTEGER HAPH,HAPN # TCHA,V8IZH#VSIZV,R8U#BLKS # 0SII, 

C V0IHH»VDINV»VFIL«H!P3 
L06ICAL*1 STATU8(HAPN#HAPH) 

COHM0N/DIh/NCOL#NR0N#HAPH > HAPN#TCHA#V8XZh,VSI2V,RSXI#NREC»BLK8# 

n DSIZ'VOINH'VOIWV'VFXL'NIPS 
COMMON // ATOPfCTOP 
common /IPL/ IPX»IPY,IPCNT*EXT 

x#ipx 

V«IPY 

DC 8 0 IRfeCT*2# ATOP 

CALL SET CX,Y, STATUS) 

ITMP ■ ADIR(OIRECT) 

GO TO (A, 5, 6, 7), ITMP 
a x » x ♦ 2 
GO TO 8 

*> Y » Y ♦ 2 
GO TO 8 

6 X • X • 2 
GO TO 8 

7 V • Y • 2 

8 CONTINUE 

RETURN 
END 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


i 
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REAL FUNCTION SSQ (X, V, CHAN# V«EH» NKSTAT ) 

this subroutine confutes the suh of t*e squares for a pixel group 

WRITTEN QV PETER C# HILLER IN THE FALL AN»> HUNTER OF JR7R 

* ViYll|t*Mfifll t t l t i tlfttlTMlt'flM * • ♦ 1 ' » f | f i t ♦ 1 • M m » f I H ♦ n f 



INTEGER hAFH#hAFN# TCHA# V 8XZH# VStZV#R8IZ»8LK8#C8l2# 

C WOlHH f VOIHV#VFIL#HlPS 
INTEGER X#Y#CHAN 
INTEGER BK8TAT(BLK8) 

OIhenSION VHEH ( V81ZV# V8!ZH#4# TCHA) 

common /OIm/nccL#nRCN#HAM,HAFN,TCNA#V»J*H,VSIZV i RSIZ#NREC#BL*S# 
* 0SIZ,V0IHH#W0IHV,VFIL#HIPS 
COHMON/PIX/N,M,MAXMN,NEXTB 

cohmok /ipl/ ipx,:pv,ipckt#ixt 

c 

SSQ* 0,0 
00 1 1*1 #2 
00 1 J*1 #2 

TEMP * Pt»E c CN4J«1 » »♦!•!, CHAN# VMEM# BKSTAT) 

SSG « $80 ♦ TEHP*TEHP 
1 CONTINUE 

c 

RETURN 

END 
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BLOB-3 

RECONSTRUCTION OF PICTURE 


I. 


II. 


NAME 

RECON 




DESCRIPTION 

The RECON program reconstructs the picture from the list description 
generated by BLOB. 


III. CALLING SEQUENCE 

Call RECON (ADIR, SLINE, STATUS, PHEANS, BOUND, IPBS) 
where 

ADIR Is the list of dlrectlonals for the current Initial point. 

SLINE is a line buffer for the reconstructed picture. 

STATUS Is the array holding the status flags for each pixel group. 
PHEANS Is the array holding the gray level Information for each of 
the pictures. 

BOUND is the array in which the boundaries of each contour are traced 
out. 

IPBS Is the initial point boundary s*:ack used to keep track of which 
boundary contains a given point. 


1 


i 


| 
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IV. INPUT/OUTPUT 
1. INPUT 

a. Sequential data set on unit number 8 which contains a list 
of initial point coordinates for each contour, the number of 
points in the contour, the number of entries In the associated 
directional list, and the means for the initial point. 

b. Sequential data set on unit 9 which contains directional lists 
for the contours. 


c. COMMON/D I M/NCOL, NROW, HAFN, HAFM, TCHA, VSIZV, VSIZH, RSIZ, 
NREC, BLKS, DSIZ, VDIMV, VDIHH, VFIL, HIPS as described for the 
subroutine REFORH. 
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[ d. COMMON/P I X/N, H, HAXMN 

where 

1 i 

N is the number of pixels per line in the picture. 

H is the number of lines in the picture. 

; HAXMN is the maximum of N and N. 

t 

2. OUTPUT 

RECON generates a picture si .owing the boundaries of the detected 
contours in byte format. The contours are represented by the 
value 255. the inside of the regions by the value zero. This 
picture is written one line at a time to unit 10. 

f 

RECON also reconstructs the picture by filling the inside of 
each region with its mean value in each component (channel), 
and each pixel component is represented by a 
byte value. This reconstructed image is written to unit 13. 

3. FILE STORAGE 

No additional files are used by this program. 

i.. 

V. DESCRIPTION OF SUBROUTINES 

The following table gives the storage requirements and the functions of 
subroutines used by RECON. 


DESCRIPTION OF SUBROUTINES FOR RECON 


SUBROUTINE 

NAME 

STORAGE 

(BYTES) 

FUNCTION 

RECON 

2978 

Read initial point and directional 
files, generate contour pictures. 

GSTAT 

1036 

Gets the current status of a 
pixel group. 

PSTAT 

Entry 

Stores current status of pixei 


Under 

GSTAT 

group. 




.4 
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The following u U shows the Itnkege of the subroutines. 


LINKAGE OF SUBROUTINES FOR RECON 


CALLING PROGRAM 

PROGRAM CALLED 

RECON 

GSTAT 

PSTAT 


VI. PERFORMANCE SPECIFICATIONS 

1. STORAGE 

The subroutine RECON Is 2970 bytes. The storage needed to run 
this subroutine, Including the required subroutines end a driver, 
is 97K for an image of 112 x 112 pixels. 

2. EXECUTION TIME 

The time required to run this subroutine to reconstruct a 112 
x 112 Image is approximately 10 seconds of CPU time. 

3. RESTRICTIONS 
None. 

VII. METHOD 

The output unit number is set to 10. Arrays SLINE, STATUS, end BOUND 
are set to zero. 

Each contour is processed as follows: 

The initial point information (coordinates of point, number of 
pixels in current blob, number of entries tn corresponding 
directional list, means) is read. If the blob consists of more than 
a single point, the directional list is also read for the region. 

The contour is then traced out by fot lowing the directional list. 

The contour picture Is produced by setting the associated line buffer 
position to 255, leaving all points not on a contour equal to zero. 


225 



After all contours have been processed, the picture Is reconstructed 
by filling the Inside of each region with Its mean value In each 
component (channel). One line Is written to the output array for each 
channel. This Is repeated for each row of the picture. 

COMMENTS 

The program PLTPIX has been used to print the resulting contour Image 
and the reconstructed image from flies 10 and 13, respectively. 
However, the user may process these flies as he desires. 

TESTS 

The reconstructed Images have been examined by use of mean square 
error calculations and plots and histograms of difference Images. 

LISTINGS 

Listings of the subroutines follow. 
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SuHRriTlNE RECON (A0tR,8l.lNt,T8L'3TATu8#PPEAN3,B0l'N0*lPB8#N«) 

(. 

f this PROGRAM 18 ONI POSSIBLE *AY tF RLBuIlDlNG THt CONTOURtO 

C »*ir.Ti.*ik# **0 OtTPlT FROM II 18 EA&ILT ChANCtO, 
l 

C *RITtE\ HV PETER C, PtLLEG In FALL Am) *InTER OP 1979 
r MODIFIER FOR OPERATION UNOEH 08 /MvT f)\ IBP 860 ANO COKTCUR 

( PUTP"T M MANS G, PC I A # N ASA/GSFC COPfc 9JJ IN SEPTEMBER 1976 

C 

C uLORn • MjmHER CP PIXELS IN tHI CLR*E **T BLOB 
r si INF • LINP BUFFfR FOR RfCONOTRUCUO PICTURE 
L m, n - VERTICAL, MCRUCkTAL OIPENSICkS OF THE PICTURE MATRIX 
f (p ANO N POST HE MULTIPLES OF 2,) 

C fAMPt, t (pax(p»n))/2 

c IPX • TMF X COORDINATE OF THE CURRENT INITIAL POINT ttP) 

C 1PY • T*fr Y COORDINATE OF THE CURRENT J» 

( lP^FXN • The PEAK OF TpE CURRENT IP 
i (. 1PSSO - IMF 31 OF ThE SQUARES OF TPf PIXEL GRCUP IN TMF IP 

C IPCNT • RUNNING SUP of The number of APR 

r ►At . HrriEAN FLAG TO INDICATE INTERNAL OP EXTERNAL CONTOUR 
C TRUE « EXTERNAL 

f FAC SE « internal 

f STATiS • ARRAY PULPING THE STATUS FLAGS FOR EACH 
C PIXEL GROUP. EACH STATUS FLAB IS I BYTE LONG 

r ANp IS MANIPULATED BY SUHRLUT INE GSTAT, 

r PPEANS • AHRAV MHICP PCLnS THE GRAY Lk VtL INFC « FOR EACH THE 
f PICTURE, 

C ATOP • TOP OF OIHECTIONAL LIST 
( Ac 1 R • RCI.OS TPE 01RCCTICNALS FOR QN| IP 

C bOi»Np • TPE UOUNpARIfS OF EACP CONTCU" AR| TRACEO OUT IN ThlS 
C ARRAY, POINTERS ARE LEE T BEhInu POINTING INTO THE PPf AN 

t SO *E CAN INDIRECTLY RRITE THF PICTURE, 

C TIPUS - TOP OF TP BOUNDARY STACK 

( |P(NT • winning COUNT OF THE MP«FR C* IP *E PAVE PROCESSED 

C |PP8 * IP HOL'NDARV STACK USfD TO KfEP TRACK OF NHJCM POUNOARY 

r wt ARE INSIOE OF, 

C 

c . « III •!«*«•••«! 

i * 

Nt AL PN|ANS( PIPS, TCPA) 

JNfEDfR pAFP,PAE «,TCHA,Y 5I7H,VSIIV,N812»BtKS,C8l2# 
f. VOI^P# V0TPV # VE IL,PIPS 
I n TF C.E W ATUP,AOIR(OSU) 

iNTEliFP X, Y, TIP08, START, JPCNT, STAY. IPBS(PAXMN), GSTAT 
IMKM TPAN, TAPE, HCtNO (PAF N , PAF P ) , BLOWN, TPP 
LCGICAL*I TSL(NA), 3LINE(TCHA,NC0L)» 6TATUSCHAFN,PAFP) 
irmcAi tx t 

CpMM. K/r t*«/« cri ,NRf k,pafp,hafn,TCpa, ySUh,V8IZV,RS12,nREC*BLk8, 

• USj/,vn*P, VDIPY,VF IL«PIPS 
{.C» r ' fc * , N // ATO',CTPP 
CD*«M’N ZHLPH1 /HLCRn 

conpcn/ipi /ipx, ipy, ipcnt#ext 
(. r^i N/P lx /►,►,► *xpn,n£x T 8 
r 

t APE *1 1 
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DC SAC tat, haps 
DC SCO J«t, TCHA 
I AO 8LlNE(J,!)aO 
C 

IPtNTaO 
DO 2 tai,MAPP 
00 2 Xai#HAPN 

8TATU8(X,t) • 0 
80UK0(X,V) a 0 
2 CCMJKU* 

c 

C READ THE IP INFORMATION POR 0X8 REOI©* 

5 I PCM a IPCM ♦ I 

IM IPCNT «6T • MIPS )CC TO 19 

fNOaU) IPX, IPV,8I.0BN, ATOP# (PPfAN8(IPCNT#CHAN),CHANa|,TCHA) 

C 

c nc *E HAvf A SINGLE POINT IPI 

IM HLQHN *Nt , 4 )GC TO 4 
C 

C YE 8 

CALL P8TAT(IPX,IPV, 1,1, STATUS) 

DDOK0(IPV/?tl#IPX/2«t)aIPCNT 

go ?r s 

4 » a IPt 
M1PX 
C 

l Sf An THE CIRtCTIONAl INFORMATION POP ONE REGION 
READC9,EN0a2l)( A01P(1) # Iat#ATOP ) 
l ASIDal 
C 

C THACf OUT THE CONTOUR 
CC 15 NXT0IMa2,AT0P 

l A| P8TAT(X,V#UA8T0,A0IP(NXT01R)#8TATU8) 

h0uN0(V/2A|#x/2al)aIPCNT 

LASTOaAOIPCNXTOlP) 

GO T0( l 1 # 12, 1 S, |4) # UA8T0 

11 X a x ♦ 2 
cr TO 15 

12 v a V ♦ ? 

GO TO 15 

13 X a x - 2 
GC TO 15 

\u v a v • 2 
15 CONTINUE 

( 

CAUL P$T AT (IPX, IPV, AO lR(ATOR)tl, STATU*) 

IP C x ,M, IPX ,0R, Y ,NE, IPV)**ITM©,105> IPCNT 

C 

C PROCESS NEXT REGION 

GO T(1 3 
l 

c GENERATE CONTOUR PICTURE 

\t> CONTINUE 

l'«: 343 Yal ,NAEM 
DC $31 xal ,MAEN 


saaa-ji 
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i i mum n^m*m** 


.4 


1RP a b()UAO(X,V) 

IF (TRP ,NF, 0) TPP»255 
lx a 2*X - I 
TSLCIX )a1»*P 
TSI. ( 1X41 jaTPP 
Ml ClMHUt 
Oli M3 I# 1,2 
333 **l!t HAPF) TSL 


E 


F 

r 

r 

! 


f 


f 11 L I * eFTtotFfc THf BOUNCARtfcS 
DO 20 VBl»r»2 
UPBSSO 

Cr 20 Xs) ,N,2 

ST AT s GSTAT (X,Y, STATUS) ♦ 1 
GO TO (17,16, 19,20) »STAT 
17 b0tM)(X/?4l, Y/241) a IPBS(UPbS) 

(,0 10 2 ; 

l* I IPdS « . iPHS ♦ 1 

IF (T1P6S ,61, *AXPM GC TO 26 
IPRS(TIPBS) s 0GUM)(X/24l#Y/2M) 

GC TO 20 

I 9 1 tPHS a T1PHS - 1 

IF (TlPbS ,GF , 0) GC TO 20 
«Pm(6,!01) 

2ft C0M1 “lit 

t wHITF liljT lHt PICTUHF 
DC 31 » s l , ♦■* A F ► 

0( 32 CHAK * 1 « TCFA 

C( 31 Xs 1 , HAF N 
1 XBsHOiif.C ( x , V ) 

IF ( I X0 ,tC, 0) GC TC 30 
1f*P s P^F An$(IXR,CHAK) 4 0,5 

30 COM IMF 
I xs2*X«l 

SIIAKCHAN,IX )sT*P 
SUM(OAK,IX4l )sTMP 

31 MAT I ME 

32 tilAMMjfc 
Ut 3 3 Is 1,2 

33 -PI U (13) SUM 

J Tt (6,109) 

H t T U •* is 
C 

21 #kl IF (6, 102) 

2*j » M 1 T t ( 6 # 103) ► A X T P 5 

►’ L 1 1.' ** *s 

i. 

26 ft (6, 1 06) 

HE H PN 
C 

li.i FCH*«kf (1613) 
t li 1 ►CH v aT('OJPBS UKOEfiFlCt»«) 

l.»2 k:hmaT( 'OtOF OtTFCTtO THt 0 1 Hf C T I A L FILE 1 ) 
t c 3 FOKPATMOIPCM 6T PAX IP COUM ! ,1<>) 
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105 rnnMT(«o cc*m» ••!*»* Dio mot htu*n to iti initial pout*) 

106 FOHPAtfOlP&S OVeSFlOw*) 

104 FOHf AT(«ORfeCON COMPLETED* ) 

F.M) 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 



CHAPTER V 


CLASSIFICATION 


SEQUENTIAL LINEAR CLASSIFIER 
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1 . 


II. 


NAME 

LINEAR, NCLASS 
DESCRIPTION 


SSSiBf 


In this technique, the discriminant functions which are evaluated to 
determine classes are linear. The decision is based on a positive or 
negative value of the function of the input vector of reflectances. 

The discriminants are calculated sequentially, with one class separated 
from all other classes by each function. The steps required are 
examining the data to determine which class is separated from the 
others, and determining the coefficients of the discriminant function. 


III. CALLING SEQUENCE 

Call LINEAR (X, CLASS, W, MOC, S, Y, B, A2) 

Call NCLASS (BUFF, MCLASS, CLASS, W, HOC) 
where the arrays are dimensioned as follows: 

X (NN, MM, NSC) - bytes of training data, 

CLASS (MM) - double precision array of class names, 

W (NN+1 , MM-1) - array of discriminant function coefficients, 
MOC (MM) - class numbers in order of testing, 

S (NN+1, NN+1) - double precision work array, 

Y (MM X NSC) - work array, 

B( MM X NSC) - work array, 

A2 (NN+1, MM X NSC) - work array, 

BUFF (NN, NSAMP) - input buffer (bytes), 

MCLASS (NSAMP) - output buffer (bytes), 
and 

NN - number of channels of data, 

MM - number of classes present, 

NSC - number of training samples per class, 

NSAMP - number of pixels per scan line. 





233 


iv 


INPUT/OUTPUT 


1. INPUT 

The input data set Is sequential, with data samples arranged by 
measurement vectors and word length of one byte. The following 
parameters are specified In the common block: 

/CLSSFR/ 

NN, MM, NRECS, NSAMP, NSC. 

2. OUTPUT 

The output data set Is a file containing the class number for each 
Input pixel. 

V. DESCRIPTION OF SUBROUTINES 

The subroutine linkages are given in the following table. 


CLASSIFIER SUBROUTINES 


CALLING PROGRAM 

PROGRAMS CALLED 

LINEAR 

SNOPAL 


NTEST 

SNOPAL 

GAS 1 NV 

NTEST 

NOPACA 

NCLASS 

NOPACA 


The subroutines are described in the following table. 


SUBROUTINE 
OR ENTRY 

STORAGE 

(BYTES) 

FUNCTION 

LINEAR 

115** 

Calls routines to compute and test 
discriminant functions. 

SNOPAL 

4550 

Compute coefficients of the discriminant 
function, and distances from data classes 
to discriminant hyperplanes. 

NTEST 

1428 

Test discriminants on known data samples. 



SUBROUTINE 
OR ENTRY 

STORAGE 

(BYTES) 

FUNCTION 

NOPACA 

942 

Classification of data samples. 

NCLASS 

1252 

Classify the data set, compute and print 
class occupancies. 

GASINV ' 

1838 

Invert a symmetric matrix. 


VI. PERFORMANCE SPECIFICATIONS 

1 . STORAGE 

The program requires 125K bytes when classifying the Mobile Bay 
data set which has scan lines of 1200 pixels. 

2. EXECUTION TIME 

Approximately 1 minute is required to compute the discriminant 
coefficients. The Mobile Bay data was classified into six classes 
at the rate of 4590 pixels/second, averaged over several runs. 

VII. METHOD 

The class which Is to be separated from the others should be widely 
separated from the discriminant hyperpiane and from the other classes. 

The criterion used is the sum of the signed distances of the training 
data samples from the plane. (Samples which are incorrectly discriminated 
are given negative distances.) The discriminant planes for each class 
of training data vs. the other classes are determined by the following 
method. 

The coefficients of the discriminant function are then determined by 
setting up a system of discriminant equations (one for each training 
sample). The value of the function for each data sample is the distance 
of the sample from the plane represented by the function. The method 
consists of maximizing the total distance of the training samples from 
the discriminant hyperplane. This process is repeated until a single 
class remains. Samples are classified by evaluating the discriminant 
functions sequentially until a positive value is obtained. Flow charts 
are given in Figures 19 and 20. 
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Figure 19. 


Discriminant Tra 


ning Phase of Sequential 


Linear Classifier 
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Figure 20. Classification Phase of Linear Classifier 
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VIII. COMMENTS 
None. 

IX. TESTS 

| The algorithms have been tested extensively and have been found to be 

■ comparable in accuracy to the maximum likelihood method. 

X. LISTINGS 

Listings of the routines follow. 

n 

s 
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SUBROUTINE LINEAR (X, CLASS, A, HQC# • # V, B# A2) 


CONFUTE LIUS. AN DISCRXPINANTS ANO TEST WSlM# TRAINING SARNIES 

DIMENSION X(l), MCI)# ROC(I), SCI)# YCl)# BCD# ASCI ) 

DCUBLE PRECISION CLASS(RR) 

LOGICAL OROER 

COMMON /018TNC/ ONN# 0» ONOEN 

COUPON /CL83PR/ NN# HR# NRECS# NlAHP# NSC 

COMPUTE TRF OROER CP 019CR1RXNANT TESTING AND LINEAR DISCRIMINANTS 


\ 


l 


N ♦ 

* i 


I 

i 

i. 

I 

* 

> 

t 

I 


NM • KN # 1 
MR1 ■ RW « l 

DO 100 NCaliRR 
IOO ROC(NC) • NC 


reproducibility of the 
PAGE IS POOR 


c 

r. PINO CLASS HITH RAX1RUH DISTANCE FROH HTPfRPLANE 
OC 1000 NN1«1#RPI 
WRITE (6,5010) 

IP (NH.EQ.RRl) GO TO 1000 
WRITE (6#5000) 

OROER • .TRUE, 

ORAx i .1,0 1 50 
00 500 NCl»NW|#RR 

CALL 8N0PAL (X, CLASS, N# ROC# I# T# *# At# NN| # NN|) 
00 » CAR ♦ 0 


WHITE (6,5020) CLASSCROCCNNl))# DNM# U, DD 
IP (0C.LT.0RAX) GO TO 150 
ORAX s 00 


NCLAS8 • NCI 


C ROTATE CLASS NURBER3 IN ARRAY «RQCt 
150 R8AVE « ROC(NWl) 

00 200 NCPN*),HRl 
200 ROC(NC) ■ ROC(NCfl) 

MOCO'R) • R8AVE 
500 CONTINUE 
C 

r. PLACE DISCH1RINATE0 CLASS NURBER AT TOP OP ARRAY 'ROC' 
IURP » ROC(Nwl) 

ROC(Nwl) « ROC(KCLASS) 

ROC(KCLASS) > ITERP 
OROER • .PALSfc, 

1000 CALL SNOPAL (X, CLASS, N, ROC, 8, V# B, At, N*l, NN) ) 

C 

C TEST THE CLASSIFICATION OP THE TRAINING SARPLE8 

t 

CALL NTEST (X, CLASS, R , ROC) 

RETURN 


C 

5000 PORRAT (tOX,31 C*')/20X, '* OATA • HYPERPLANE DISTANCES *'/20X, 

,) 1 ('*')) 

5010 FORMAT Cl') 

5020 FORMAT (/A)0,5X, ' OTHER ',5X# ' TOTAL '/20 X #3F1 0,4) 

LNO 
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SUBROUTINE 9K0MI (X, CLASS* N# HOC* B» V* S» A2, NNl# NNt) 

t 

8UPERVI8I0 NON«PARAMETRXC learning 
LOGICAL*! X(NN#PM#NSC) 

DIMENSION *(NN1,1), PQC(PP)# VU), 0(1)# A2CNM#t) 

OOUBLE PRECISION CLA88CPP)# S(NN1»NM)# BBT 
INTEGER 8IJ 
LOGICAL TEST# OBOES 
COMMON /DXSTNC/ DNN# 0# OBOES 
COMMON /CL8SPR/ NN# PP# NREGS# NOAMS# NSC 
OATA DELTA /0 f 01/ 

COMPUTE INVERSE OP A(TRAN8P0Sf) A WHERE *A* IB AUGMENTED MATRIX 
OP SAMPLES 

DO ISO 1»!#NM 
00 130 J«1#I 
SIJ • 0 
C 

DC TO NCia*M#PP 
Nt ■ POC(BCl) 

IP (I#EQ#NN1) GC TO 13) 

C 

C INDEX I NOT EQUAL TO NO# OP BANOS ♦ 1 
00 132 N8I*1»NSC 

132 SIJ • SIJ ♦ X(!,NC*N81)*XC'J,NC#N81) 

GO TO 70 

C 

C INDEX I EQUAL TO NO# OP BANOS ♦ 1 

133 IF (J.CQ.NNl) GC TO 70 
00 13« NSlal #N8C 

130 SIJ a SIJ ♦ X(J#NC#N81) 

70 CONTINUE 
C 

8(1# J) ■ SIJ 
130 8(J# 1 ) a SIJ 

S(NN1# NNl ) a NSC * (MM»M»lAl) 

c 

CALL GASINV (8# NNl# DET) 

C 

c INITIALIZE N # v# s# ANO A2 ARRAYS 
DO 1112 NPA81 # NN1 
1112 M(NfA,NMl) • 0.0 
N8T2 • 0 

DO 1110 NCtaNNlfMM 
NC a POC(NCl) 

DO 1110 NSial # N8C 
N8T2 a NST2 ♦ 1 
Y (NJT2 ) #0 

B CNST2) a 1,0 
DO 1110 !■! #NN1 
A2(I»N8T2) a S (I #NN 1 ) 

DO 1110 N*1#NN 

1110 A2( 1 »NST2) • A2(I,N8T2) ♦ 8(I«K)«X(N#NC*NS1 ) 
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DO MI ITERATION* Of TNI MOaKASMVAP ALGORITHM, UNLESS All OOEPPICXSNTS 
CHANGE St LESS THAN | PERCInT 

HI a SO 

If CORDED) Nt • 10 
Nh 2 a NM1 ♦ 1 
Nft a MOCCNHt) 

If C,NOT,0R0ER) NNITE (4,102) NN, CLASS(Nm), ClAti(NN) 

DO 1040 iNDCXatfNI 
TEST • .TRUE, 

I 

COMPUTE NNl COEFFICIENTS fOR ClAif NN AnO STORE IN N 
DO 1101 iPlfNMI 
MO a N(X,NH!) 

USE SAMPLES PROP CLASS NN 
00 2101 JPlfNSC 

2101 MCI,M»1) a M(X,NM1) ♦ A2(l# J)*ABS(Y(J> ) 


LOOP OVER REMAINING CLASSES 
J ■ NSC 

DO 2000 NC1»NM2,MM 
DO 2000 NSlPlfNSC 
J ■ J ♦ 1 

2000 MCI'NM!) a M(|fNMl) • A2(XfJ)*ABS(V(J) ) 




TEST COEff ICttNTS fOR CHANGE 

If (AI8Cn(I,NN1)»N0),6T, AB8C0EITA*m0) ) TEST ■ , FALSE, 
1101 CONTINUE 

COMPUTE NEM DISCRIMINANT VALUES AND CLASSIFICATION ERRORS 

DO FOR CLASS NM 
NERR1 ■ 0 
DM* a 0,0 

00 1004 I«1,NSC 

IF (V(I),GT,O f O) SCI) • SCI) > '2'0»Y(X) 

VCD • M(NN1,NM1) 

DO 1141 NF2al,NN 

1141 V(I) • VCX > ♦ M(NF2 # NWl)«XCNfI # NN # I) 

IF (V(I),LE,0,0) NERR1 • NERRJ ♦ ) 

ONw a 0N» ♦ VCX) 

1004 VCD • VCD • BCD 

LOOP TVER REMAINING CLASSES 

1 • NSC 
NERR2 ■ 0 
D ■ 0,0 

DO 1005 NCiaN»2,MM 
NC • HOC (NCI) 

DO 1000 N8l*l ,N8C 
X ■ X ♦ l 

IF (VCD, GT, 0,0) BCD • SCI) ♦ 2,0*t<I) 

VCD ■ MCNNDNMl) 






oo lab fcFtai'Mw 

las VCl) • vct> ♦ MnP2,nn1>*X(NP2,nC,nI1) 

IF (V ( I ) *GT.0.0) MRD2 a NERR2 a J 
0 a 0 ♦ VCSS 

1000 VfD • *VC D • 1(1) 

1005 CONTINUE 

ON* a ON* / NSC 
0 a *0 / (NCCa(MMwNNl)) 

If C, NOT, ORDER) "RITE (Of 100) tftOM' *E*R1# NERR2* (h(NFA*NNt )* 

IF (TEST) 80 TO 1010 
lOaO CONTINUE 
1010 NERR a NERR1 a NERR2 

IF (.NOT, ORDER) -RITE (0,220) NERR 

IF (Nftl,Nfc.MNwt) RETURN 
aRlTC (6,216) 

MM 1 • MM • } 

00 1220 NNSlfMMl 

1220 wRITE (6*101) MCC(NK)* CIAS8(N0C(NM))> (m(NFA,nw). NP A*1 ,NNl ) 

6RITE (6,101 ) WPC(*M), ClA88(M0C (MM) ) 

RETURN 

100 FORMAT (IS»IllfI0#aX,lF7E14 l S/(Sli*ftF7Eia c S)) 

101 FORMAT (/IlS,Al0,t0X,lP7Cl«,l/(JlX#lP7Eta,l)) 

to? FORMAT f//22*,22( ***)/ 22 X,*a CLASS • * 11**10, • • '/22X,22( «*•)// * 2TC 
.RATION NO, *,SX, 'ERRORS*, 10X,*llNfAR DISCRIMINANT COEFFICIENTS*/ 
.A22.I OTHER*/) 

216 FORMAT (*1«/!OX,'OROERFO CLASSES *, 20 X* • ELF HINTS OF THE DISCRIUNAN 
,T VECT0R*/10X.1S(*«*)*20X»3S( *••)/) 

220 FORMAT (/TX, 'TOTAL ERRORS**!?) 

ENO 


! 
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SuORCLTlNE NTE37 (V* CLASS# N, HOC) 

C 

C CLASSIFIES NNOAK DATA SAMPLES • NONPARAHETNlC CLASSIFICATION 

t 

LOC!C*U«l X(NN,FM,NSC)f ICLASS 
DIMENSION A ( t ) f HOC ( 1 ) f II|(20) 

DOUBLE PRECISION CLASS(MH) 

Common /CL88FR/ NN, HA, NOCCIi NSAPP# NOC 
C 

NN1 I NM ) 

MM) • HM • 1 

fcRlTE (6,2006) CLASS 

TE « 0,0 HKI'KdliUCliaUTY OF THE 

C ORIGINAL PAGE IS POOR 

OC tbAO KCBlfHH 
00 1109 1*1 ,HH 
1109 N8U) • o 
C 

OC tflOO NSl • tfNSC 

1400 CALL AOPACA (X ( 1 #NC#N81 ) , XCLASS# NS, H, HOC# tf NN|, HR| ) 

C 

(M ■ 100,0 • KS(NC) / NSC 

■RITE (6,2009) AC, CLASSIC), NSC, N81NC), Iff, («S(N), N«l,HF) 
IbOO Tt • T| ♦ EFF 

AVI • Tf / FLOAT (MR) 

*•«!?€ (6# 2109) AVI 
RETURN 
C 

2006 FORMAT C'l •/J0N*29C«*»)/I0*f •• RESULTS OF CLASSIFICATION At/30*f*« 
, TRAINING SAHFLCS ••/10*,29(‘««)///H*,iNUH6tA OF NUMBER 

, FFRCFNT NUHSeR OF SAHFLCS CLASSIFICO AS«/6X, ‘CLASS SAF 
,PLES CORRECT CORRECT* , 10A9/ (43*, 10A9)) 

2009 FORMAT (/I«,A9,17,Itl,FlO,lf lOI9/(4|Xf 1019)) 

2109 FORMAT (//JOX, 1 Oh AVER AGE ACCURACY *f F6, 1 ,0H PERCENT /30X, 12 (1M)J 
ENO 


2A3 


on r> o 


SUBROUTINE NCLASS (S, MCLASS, CLASS* N, moC) 

nonparamftric classification 

CLASSIFIES DATA SAMPLES AND STORES CLASSIFICATION RESULTS ON TAPE 
LOGICAL*! S(NN,N3AMP) | NCLASS(NSANP) 

dimension *cn# Mccu), ks ( 20 ) 

DOUBLE PRECISION CLASS(MW) 

COMmcn /CL5SFR/ NN, mm, nRECS, nSAMP, nSC 

c 

NN1 i HIM 1 
MM) a MM • t 
DO 1009 NCai'MM 
1009 KS(NC) a 0 

NTOT * NSAMP * NRICS 
C 

DO 12 NRECal, NRECS 
READ (10) $ 

CALL NOPACA (S, MCLASS, KS, N, MOC# nSA'P, NN1, MMl) 

12 WRITE (11) MCLASS 
C 

WRITE (6,2010) 

DO 1221 NCcl,MM 
PCT a 100,0 * KS(NC) / NTOT 
1221 WRITE (6,2011) NC# CLASS(NC), K8(NC), PUT 
WRITE (6,2012) NTOT 
RETURN 
C 

2010 FORMAT (M »/30X,29{'*')/30X,»* RESULTS uF CLASSIFICATION *'/30X, 
,'*',7X, 'DATA SAMPLES' ,8X. '*'/30X,?9( •*' J///20X, 'CLASS' ,15X, 'SAMPLE 
,$',1SX, 'PERCENT '/20X f 5('*'),2(15X f 7 ( '*•))) 

2011 FORMAT (/I17,A9,120,F22,2) 

2012 FORMAT (/ 1 3X , 1 3HTOTAL SAMPLES, I20/13X, li( lH*) ) 

ENO 
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noon 


\ 


j 

i 

i 

i 

I 

i 
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8UBR0UTINE NOPACA (X, NM, K8, N, MOC, NSS, NN1# MM!) 

NON*PARAMfTRtC CLASSIFICATION OP A STRING OP NSS FEATURE VECTORS 
USING PRE’LEARNEO LINEAR DISCRIMINANT FUNCTIONS 


C 

C 


C 


C 


LOGICAL*! X(NN, NSS) # NW(NSS) 

DIMENSION M(NN! #**M1 ) # M0C(1)» K8C I > • X) (20) 

COMMON /CL8SFR/ NN» MM, NRECS, N&AMP, NSC 

COMPUTE VALUES OF 0ISCRI*INANT FUNCTION AnD TRANSFER IF POSITIVE 
DO 20 N8t«!,N88 
DO 5 NF!>!,NN 
5 X1CNP1) ■ X(NF!,NS1) 


00 1 NM!8!,MM! 

G a N(NN1,NU1) 

00 2 NPlal'NN 

2 GaG* M<NP1,NN1)*X1(NF!) 

IF (G,GT,0,0) GO TO 3 
1 CONTINUE 
NW! a MM 


reproducibility OF THE 
ORIGINAL PAGE IS POOR 


3 NCaMQC(NNl) 

KS(NC) a KS(NC)*1 
Nm(NSI) a NC 
20 CONTINUE 
RETURN 
END 



IkS 


SUBROUTINE GASINV (A, N, OFT) 

C 

C COMPUTE INVERSE ANO DETERMINANT OF SYMMMRlC MATRIX A 

C 

DOUBLE PRECISION A(J0,50), DET * TEST, TfeMp, FAC, N # D 
DIMENSION IQRD(EO) 

DET ■ 1,0 
DO I I«1#N 
1 IORD(I) > I 
DO 2 K«1,N 
IF (K,EQ,N) 60 TO 3 
TEST a DABSC A (K ,K) ) 

KP1 l M t 

L ■ K 

DO a i«kpi,n 

IF (TEST, 6E, DABS (A(I,K))) GO TO « 

TE8T ■ DABS(A(I,K)) 

L • 1 

a continue 

IF Cl.EQ.K) 60 TO 3 
DO 5 J«1 ,N 
TEMP • ACL# J) 

A(L,J) s A (K , J) 

5 A (K , J ) • TEMP 
J a IORD(L) 

IORO(l) > IORD(K) 

IORD(K) ■ J 
DET • «DET 
3 DET a OET*A(K,K) 

A(K,k) a 1,0 / A (K ,K ) 

DO 6 Jal,N 

IF ( J,EQ,K ) 60 TO * 

A (K, J) a A (K , J) * A(K,K) 

6 CONTINUE 
DO 7 1*1 » N 

IF (I,EO,K) GO TO 7 
FAC a A ( I , K ) 

A ( I , K ) a *A ( I , K ) * A (K , K ) 

DO 8 jai,N 
IF (J.EG.K) GO TO 8 
w a FAC * A ( K , J ) 

0 a A ( I , J ) • W 

IF (DABS(D),LT,0,00001*CAB8(N) J D a 0.0 
A ( I , J ) a 0 
8 CONTINUE 

7 CONTINUE 

2 CONTINUE 

NM1 8 N*1 
DO 9 Jaj.NMl 
12 CONTINUE 

IF <? J^P(J),EQ,J) GO TO 9 
K a 1 0 N i) ( J ) 

IORD(J) ■ IORD(K) 

IQRD(K) a k 
DO 10 1*1, N 


TCMP I A(I# J) 

A(l« J) • A(I,K) 

10 A<I,K) • TEMP 
80 TO 12 
9 CONTINUE 

00 19 t«2iN 

II • I • » 

00 19 J«l#!t 

ACS* J) • (A(l#J)4A(J#l))/l#0 
19 A(J # n ■ A(I# J) 

8ETURN 

CNO 


«8S?>r» 
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MAXIMUM LIKELIHOOD CLASSIFIER 


NAME 

MAXLIK (training) 

PCLASS (classification) 

DESCRIPTION 

The discriminant functions are the Gaussian probability distributions 
for each class which are defined by the mean values and covariance 
matrices of the training data. For an unknown data vector. It is 
possible to compute the probability of its belonging to each of the 
classes under consideration. 

Additional a priori weighting factors (such as an estimate of the 
class populations) may be included. Assignment is made to the class 
for which the likelihood of belonging is a maximum. 

CALLING SEQUENCE 

CALL MAXLIK (X, CLASS, EM, EK, B, COVINV) 

CALL PCLASS (S, MCLASS, CLASS, EM, B, COVINV) 
where the arrays are dimensioned as follows: 

X (NN, MM, NSC) * bytes of training data; 

CLASS (MM) - double precision class names; 

EM (NN, MM) - mean vectors of the classes; 

EK (NN, NN) - double precision covariance matrix; 

B (MM) - Gaussian function constant terms; 

COVINV (MM X NN X (NN+0/2) - triangular parts of the covariance 
matrices for the classes; 

S (NN, NSAMP) - input buffer array; and, 

MCLASS (NSAMP) - output buffer array. 

The parameters defined in a common block named CLSSFR are the 
fol lowing: 

NN - number of channels of data; 

MM - number of classes; 
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NRECS - number of records; 

NSAMP - number of pixels per record; and 
NSC - number of training samples per class. 

IV. iNPUT/OUTPUT 

1. INPUT 

The Input data set is sequential, with data samples arranged 
by measurement vectors (interleaved bands) and data length 
one byte. 

2. OUTPUT 

f The output data set contains the class numbers in bytes 

corresponding to each input pixel. 

V. DESCRIPTION OF SUBROUTINES 

The subroutine linkages are given In the following table. 


MAXIMUM LIKELIHOOD CLASSIFIER SUBROUTINES 

CALLING PROGRAM 

PROGRAMS CALLED 

MAXLIK 

SUBLOP 


PTEST 

SUBLOP 

GAS 1 NV 

PTEST 

MALICA 

PCLASS 

MALICA 


The subroutines are described in the following table. 


DESCRIPTION OF SUBROUTINES 


SUBROUTINE 
OR ENTRY 

STORAGE 

(BYTES) 

FUNCTION 

MAXLIK 

500 

Calls routines to compute the 
Gaussian statistics and test on 
training data. 
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DESCRIPTION OF SUBROUTINES 


SUBROUTINE 
OR ENTRY 

STORAGE 

(BYTES) 

FUNCTION 

SUBLOP 

2164 

Compute the Gaussian distribution 
functions. 

PTEST 

1422 

Test the classifier on training 
data. 

PCLASS 

1254 

Classify the data set, compute and 
print class occupancies. 

MALICA 

1216 

Classify data samples and return 
class numbers. 

GAS 1 NV 

1838 

Double precision inversion of a 
symmetric matrix. 


VI. PERFORMANCE SPECIFICATIONS 

1 . STORAGE 

The program requ I res 90K bytes when classifying the Mobile Bay 
data set which has scan lines 1200 pixels long. 

2. EXECUTION TIME 

Approximately I second Is required to compute the distribution 
functions. The classification speed for six classes is approxi- 
mately 650 pixels/second. 

VII. METHOD 

It is assumed that the distribution of training data for a single 
class approximates the bell-shaped curve of the Gaussian or normal 
distribution. 


The mathematical function for this curve Is 


P(Xj/Cj) 


1 

/ 2ir Oj 


exp 


[ - (“J] 


where a and m^ are the standard 
Xj belonging to class Cj . 


deviation and mean for measurement 
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Considering multichannel measurements, the Joint probability function 
for a complete multivariate feature vector Is 


P(x t ,x 2 ,x 3 x n /c,) - exp |- j (X-H) V 1 (X-M)J 

where (X-M) is the vector (xj-m^, Xj-mj, ..., x n "i» n )» K Is the co- 
variance matrix, and D is the determinant of K. The elements of the 
covariance matrix are a measure of the deviation of the corresponding 
x's from their mean values m: 

I M 

K IJ • FT ^ (x ln - "l> ( *J„ - «J> 
where N is the number of data samples used in the calculation. 

The parameters— mean values and covariance matrices— completely define 
the Gaussian distribution functions. These parameters are easily 
determined for each class under consideration from the known set of 
training samples. 

When the Gaussian parameters have been estimated, the Gaussian probability 
distribution for each class is completely defined. Thus, given any 
unknown feature vector, tt is possible to compute the probability of this 
feature vector belonging to any one of the classes under consideration. 
Assignment is made to the class for which the probability is greatest; 
this Is termed the maximum likelihood method of classification. For 
faster computation, the logarithm of the probability is computed and 
the decision function takes the form 

G, - In P, - y*n |k,| - j(X-H,) T K ," 1 (X-H,). 

Pj is the probability of class t being present, M| is the mean vector, 
and Kj is the covariance matrix. The decision point between two classes 
occurs when the probabilities are equal. This point is not midway 
between the means when the widths of the distributions are unequal. 


The training and classification flow charts are given in 
Figures 21 and 22. 

VIII. COMMENTS 

If a priori probabilities are to be included, they are multiplied 
by the corresponding elements of array B after the call to MAXLIK. 


IV. TESTS 


X. 


The discriminant values and class assignments have been examined by 
printing the values. 

LISTINGS 

Listings of the routines follow. 
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PRINT TEST \ 
RESULTS J 


Figure 21. Classifier Training Phase of Maximum Likelihood 
Classification 



Figure 22. Classification Phase of Maximum Likelihood Classifier 
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n n non 


SUBROUTINE MAIL, I* (M« CLASS* EM* FI# 0# COVlNV) 

COMMUTE GAUSSIAN STATISTICS AND TEST USING TRAINING SAMPLES 

DIMENSION 1(1)* CLASS(I)* FM(1)* EK(|)* B(| )* COVINV(I) 
COMMON /CL88FR/ NN* MM# NRECS# NSAMP* NSC 

COMPUTE THE GAUSSIAN STATISTICS 08 THE TNAINJkG SAMPLES 
CALL 8UBL0A (I# CLASS* EM* FI* B# COVlNV) 

C 

C TEST THf CLASSIFICATION OF THE TRAINING SAMPLES 
CALL FTE8T (I« CLASS* EM, B* COVlNV) 

RETURN 

INO 
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subroutine sublop (x, class* in* ek* u* covinv) 


■>? 


c 

e bupervisio batch liar- ino or parameters 
c compute mean vectors ano covariance matrices 
c 

LOGICAL*! X(NN#MM*LKK) 

OIMCNSXON EM(NN,MM)* B(MM)* COVlNV(l) 
OOUBLE PRECISION CLASS(MM)* ER(NN*MN)» PET 
COMMON /CLOSER/ NN* MM, NRECS* NSAME, LKK 


c 

c 

c 


4000 

9000 


LOOP OVER CLASSES 
nRITE ( 6 * 4990 ) 
Kao 

DO 9900 I9a!*MM 

00 9000 I|a|*NN 
MEAN a 0 


sap* 


,AL ^ S 


DO 4000 LKM*LKK 

MEAN a MEAN ♦ X(U*I)*LK) 

EM(I|,I1) a ELOAT(MCAN) / ELOAT(LKK) 




C 

DO 9200 Iia|,NN 
DO 9200 X2a| ,11 
EKCI1* 12) a 0.0 
00 9100 LKa| ,LKK 

9J00 EK(I1,I2) a EK(I1,I2) ♦ (X(X1,X),LK)«6M(X1,I))) a 

* (X(I2,IS,LN)«EM(I2,II)) 

EK(It, 12) a CM (I|,I2) / (LKNal ) 

EK(X2*S1) a EM(Xt*I2) 


9200 CONT.wtf 


C 

NRITE (6,4977) IS, CLASS(I))* LKK 
DO 9)00 N)Bt,NN 

9)00 NRITE (6,4994) EM(M,!I), (EK(N1,N2), N«a|,Nl) 

C 

C INVERT COVARIANCE MATRICES* COMPUTE GAUSSIAN EUNCTXON CONSTANT TERMS 
CALL GASINV (EK* NN* OET) 

8(1)) a *0,9 a (NNaALOG(2*Oa) t l4l99269) ♦ OLOG(OET)) 

WRITE (6*4997) DET 
C 

C PACK THE LONER TRIANGULAR PART OE THf INVERSE COVARIANCE MATRIX 
00 9400 N1«1,NN 
DO 9400 N2al,N! 

K a K ♦ ! 

9400 COVINV (K ) a EK(N1,N2) 

9900 CONTINUE 
RETURN 


C 

4990 FORMAT CM»/20X, 'ESTIMATED GAUSSIAN PARAM|TER8'/20X*29('a»)//9X, 
••MEAN VECTORS!, !0X, •COVARIANCE MATRICES') 

4994 FORMAT (F19*2«C9X,UE7,2)) 

4997 FORMAT (/20X, 'DETERMINANT a',tPE!0,I) 

4977 FORMAT (//I20, A10, 16, » SAMPLES') 

END 
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subroutine ptist (x, class* ew, 0, covt*v) 
c 

C CLASSIFIES KNOWN DATA SAMPLES • PARAMETRIC CLASSIFICATION 
C 

DIMENSION EM(1), B(l), COVtNV(l), WS(EO) 

LOSICAL*l X(NN,MM,nSC), WCLASS 
DOUBLE PRECISION CLASS(MM) 

COMMON /CLOSER/ NN# MM# NPCCS# NSAMp# nSC 
C 

WPITF (6,2001) CLASS 
TE • 0,0 
C 

DO ISO! NC • I #MM 
00 1221 NM*t#MM 
1221 KS(Nh) • 0 
C 

DO 1O00 NS1 • !,N8C 

1400 CALL WALICA CX(l,NC,N8l), MCLA8S# kS, F», B# CCVINV, 1) 

C 

EFF • 100,0 * KS(NC) / NSC 

WRITE (6,2004) NC, CLASS(NC)# NSC, *8(Nt), IFF, (KS(N), N«1,MP) 
1)01 T| • TE ♦ EFF 
C 

AVE ■ TF / FLOAT (MM) 

WRITE (6,2000) AVE 
RETURN 
C 

2000 FORMAT (//S0X,tRHAVlRA6E ACCURACY 4,20,1, 6M PERCCNT/30X,S2(1W*) ) 
2006 FORMAT ('l*/)0X,29(ift’)/30X#i* RESULTS up CLASSIFICATION *'/)OX,'A 
, TRAINING SAMPLES ••/)0X,24( , *')///14X, * NUMBER OF NUMBER 

, PERCENT NUMBER OF SAMPLES CIASSIFIEO A8'/6X, 'CLASS SAM 
,PLES CORRECT CORRECT* , 10A4/(4)X# 10*4) ) 

2004 FORMAT (/!4, A4, IT, 110, F12, 1 , 1014. (/42X, ) 0)4) ) 

END 
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c 

c 

c 


c 

c 

c 


8U0R0UTINE KII9S (I, "CLASS# CLASS* KM* S* COVXNV) 
CLASSIFIES UNKNOWN MT» SAMPLES • MR^TRU CLASSIFICATION 


LOGICAL. 1 S(NN*K8AMP), MCLASS(NSAMP) 
DIMENSION EMU)* S(|)* COVlNV(l)* kS(20) 
DOUBLE FBECISION CLASSCM") 

COMMON /CLSSFN/ NN# MM* NBICS* NSAMF# NSC 


DO 10 NCM1*MM 
tO MS(NC) • 0 


oV\^ N ' 




DO IS NREC«1*NREC8 
REAO (10) S 

CALL "ALICA (t* "CLASS* NS* EM* B, COV|*V, NSAMF) 
IS "RITE (11) MCLASS 


NTOT • NSAMF • NREC8 
"RITE (*,2010) 

DO 20 NC«1*MM 

FCT • 100(0 * NS(NC) / NTOT 
20 "RITE (0*2011) NC* CLASS(NC)* NS(NC)* FCT 
"RITE (0*2012) NTOT 
RETURN 


2010 FORMAT ('l'/S0X,2O;'«')/S0X,'i RESULTS OF CLASSIFICATION ••/SON* 
,'*'»7X # tOATA SAMFLF8t#SX( ••i/30X,29( »•• )///20X, 'CLASS' , 19X, fSAMFLE 
(S' * ISX, 'PERCENT '/20X f 9( ••' )#2(|9X ( T( '*• ))) 

2011 FORMAT (/IlO(Af*l20 f F2t(2) 

2012 FORMAT (/14X# 'TOTAL SAMPLES' * 120/1**, 1S( '•') ) 

END 
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SUBROUTINE MALIC* CXI# KMAX, K8» EM* H# COVlNV# NS8) 

MAXIMUM UKEIIMOOO CLASSIFICATION 

DIMENSION K8(l), Em(kn,mm), B(MM), CovI«V(l)# 0XC20)# AX(20) 
L0GICAL*l X1(NN#nSS)* KMAX(NSS) 

COMMON /CL8SFR/ NN# MM# NRECS, NSAMP# NSC 

c 

00 2000 NSlMlfNSS 
DO 1000 NF1«1*NN 

1000 AX(NFl) ■ XKNPlfNS!) 

C 

C FIMO MAXIMUM PR0BAB1LITV OVER CLOSES 
6MAX ■ »1,0 E 90 
K a 0 

00 1000 1*1 # mm 
6 a BCD 
C 

C COMPUTE GAUSSIAN EXPONENT (•!/*) CX*M) (KINV) (X*M) 

DO 6300 11*1 #NN 

OX(II) a AX ( I I ) • EM(II#t) 

C 

C COMPUTE TERMS FROM LONER TRIANGULAR MATRIX 

SUM a 0,0 
JJ a 0 

6200 CONTINUE 

JJ * JJ ♦ 1 

IF (JJ,E0,1 I ) GO TO 6250 
K • K ♦ 1 

SUM C SUM ♦ DX(JJ)*CQVlNV(K) 

GO TO 6200 

c 

C COMPUTE 1/2 DIAGONAL TERM OF CX*M) <*INV) 

6250 K a K ♦ 1 

SUM * SUM ♦ 0,5*DX(JJ)*COVINV(K) 

C 

6300 G * G • 3UM*DX(I!) 

C 

IF CG.LT.GMAX) GO TO 1*00 
MAX 8 I 
GMAX a G 
1900 CONTINUE 

KS(MAX) a KS(MAX) ♦ 1 
2000 KMAX(NSI) a MAX 
RETURN 
ENO 
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THINNING OF BOUNDARY IMAGES 


NAME 

PEELS 

DESCRIPTION 

This subroutine starts with the output (boundary lines) of a micro- 
densitometer, applies a given threshold of density, and reduces the 
thickness of the boundary lines by "peeling" their outer layers while 
preserving the distinctness of regions separated by them. 

CALLING SEQUENCE 

CALL PEELS (NTAPI , NTAPO, NREC, NEL, IT, MPASS, I TYPE, LX, LY, IBDY) 
where 

NTAPI, NTAPO are the logical unit numbers of the input and output 
sequential data sets; 

NREC, NEL are the number of records and the number of pixels (bytes) per 
record In the input Image; 

IT is a threshold on density; if IT is positive (negative) all points 
with densities IT (< IT) will be regarded as boundary points; 

MPASS is the maximum number of iterations permitted; 

ITYPE determines the type of boundary connections (I for diagonal, 2 
for perpendicular; LX, LY, IBDY are scratch arrays with LX, LY dimensioned 
as indicated In the listing and IBDY dimensioned NEL. 

INPUT/OUTPUT 
1. INPUT 

The Input image should be on a sequential data set with unit number 
NTAPI and consist of NREC records and NEL bytes per record, each 
record corresponding to a line of the digitized image and each byte, 
to a pixel. Ail other inputs are as indicated in the calling 
sequence. 
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OUTPUT 


The output of this program will be on unit NTAPO as a sequential 
data set with NREC records. The records will be in SLIC (Scan Line 
Intersection Code) format. That is, the first word of the I'th 
record indicates the number of words that follow, and each sub* 
sequent word is a column coordinate of the intersection of the I'th 
scan line with the boundary image. 

3. FILE STORAGE 

This program requires two sequential scratch data sets to handle the 
intermediate iterations of the boundary data. 

SUBROUTINES CALLED 

t 

The subroutines called by PEELS are given in the following table. 


EXTERNAL LINKAGES 


CALLING PROGRAMS 

PROGRAMS CALLED 

PEELS 

SARN* 


SVSMLie 


VLTHR 


CMPRES 


SAWN* 


PEELER 


EXPBDY 

CMPRES 

IST0RE+ 

PEELER 

SVSCI 


PEELR1 


PEELRO 


SAWN* 

EXPBDY 

IL0AD+ 

PEELR1 

SARN 


BLSFTV 


BRSFTV 0 
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CALLING PROGRAMS 

PROGRAMS CALLED 

PEELRO 

IC0MP1+ 


IAND+ 


BLSFTV 


BRSFTV 0 

BLSFTV 

IL0AD+ 


IST0RE+ 

BRSFTV 

ILOAD+ 


1 STORE* 


* Entry under DARN 
@ Entry under SVSCI 
+ Entry under L06FUNC 
o Entry under BLSFTV 


A brief description of the function of each subroutine and its storage 
requirements are given in the foliowing table. 


DESCRIPTION OF SUBROUTINES 


SUBROUTINE 
OR ENTRY 

STORAGE 

(BYTES) 

FUNCTION 

PEELS 

1526 

Reduces the thickness of boundary 
lines. 

SARN 

Entry under 
DARN (882) 

Reads N bytes from a sequential 
access unit Into an array. 

SVSMLI 

Entry under 
SVSCI (842) 

Sets the Mth elt. of a LOGICAL *1 
vector to zero. 

VLTHR 

400 

Thresholds a vector of 8-blt 
integers to get a T-F vector. 

CMPRES 

412 

Packs the Information of an array 
Into the first NEL bits of another 
array. 

SAWN 

Entry under 
DARN 

Writes N bytes of an array onto a 
sequential access device. 

PEELER 

1856 

Initiates the removal of one layer 
of thick boundaries from top, left, 
bottom, and right of an image. 





























DESCRIPTION OF SUBROUTINES 


SUBROUTINE 
OR ENTRY 

STORAGE 

(BYTES) 

FUNCTION 

EXPBDY 

570 

Senses each bit In a record and con- 
verts the record to scan Hne 
intersection format. 

1 STORE 

Entry under 
LOGFUNC (304) 

Moves a right adjusted field of data 
from one word to a specified field of 
another word. 

SVSCI 

842 

Sets all elements of a vector to a 
given number. 

PEELR1 

576 

Reads one record of the input Image 
and sets up two arrays, one with the 
bits of the record shifted one bit 
to the left, and the other with the 
bits shifted one bit to the right. 

PEELRO 

2720 

Performs the peeling of one record. 

ILOAD 

Entry under 
LOGFUNC 

Moves a field of data from a source 
word and right justifies it as the 
output argument. 

BLSFTV 

880 

Generates array IY with the bits in 
IX shifted one bit to the left. 

BRSFTV 

Entry under 
BLSFTV 

Generates array IY wjth the bits in 
IX shifted one bit. to the right. 

I0R 

Entry under 
LOGFUNC 

Performs an inclusive logical OR 
operation. 

IC0MP1 

Entry under 
LOGFUNC 

Outputs a value which Is the input 
value source with a specified field 
of bits I's complemented. 

IAND 

Entry under 
LOGFUNC 

Performs a logical AND operation. 


PERFORMANCE SPECIFICATIONS 
I . STORAGE 

Including a driver (whose size depends largely on the dimensions 
of LX, LY, and IBOY which are functions of NEL) , the program needs 
approximately 50K for handling NEL = 1000. 


263 



2. EXECUTION TIME 

The execution time Is highly dependent on the size and complexity 
of the boundary Image, the thickness of the boundary lines and 
the maximum number of passes (MPASS) requested. In the case of the 
LACIE GTM (a 820 x 1000 map with boundaries 2 and 3 pixels thick) 
it took about A minutes to thin the boundaries. 

3. RESTRICTIONS 
None. 

METHOD 

A simplified flow diagram for thinning boundaries is shown in 
Figure 23* 

The program has three major steps: 

1. Thresholding, compressing, and writing on a sequential 
data set. 

2. Iterating to "peel" boundaries. 

3. Changing to SLIC format and writing on output sequential 
data set. 

1. THRESHOLDING AND COMPRESSING 

The routine SARN reads each record (of NEL bytes) of the input data 
set Into the array LX. The routine VLTHR thresholds each of the 
NEL bytes in LX. A logical vector LY is defined as follows: 

IF (IT.GE.O) LX(l).GE.IT-*-LY(l)-T 

IF ( IT.LT.O) LX(l).LE.IAB$(IT)-*-LY(l)-T 

for I - I, NEL. 

The routine CMPRES is then used to pack the information in LY Into 
the first NEL bits of the array LX. The I'th bit of LX is "set" If 
and only if LY (l) Is .TRUE.. 
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FIGURE 23. SIMPLIFIED FLOW DIAGRAM FOR THINNING BOUNDARIES, 
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The compressed boundary information Is then written on the sequential 
access data set MDEV using the routine SAWN. 

2. ITERATING TO PEEL 

The main peeling routine ts called PEELER. The input to this rou- 
tine is from MDEV whenever IPASS, the Iteration number, is odd and 
the output then wilt be written on NDEV. When IPASS is even, the 
input and output designations are interchanged. One call to PEELER 
removes one "layer" of the thick boundaries from top, left, bottom, 
and right. 

To decide whether a particular boundary point should be deleted (i.e., 
the bit corresponding to it changed to 0), a 3 x 3 neighborhood 
centered around the point ts examined. Consider the array 

a b c 
d e f 
g h i 

where each letter represents a binary pixel. It is to be decided 
whether e which is presently equal to I should be changed to 0. 

The conditions for a 'top peel' will be derived below and those for 
peeling from the other directions followed by symmetry. 

First of all, e should be a top boundary point. That Is, there 
should be no boundary point directly above e and there should be a 
boundary point below e. Therefore, b » 0 and h ■ 1 are necessary 
conditions. Suppose b h ■ I. (Here, b denotes the complement of 
b.) Then, It Is only necessary to check whether e Is essential 
to a boundary line through h and e. The line may proceed diagonally 
or at right angles from e. The conditions for various configurations 
are given below. 
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0 0 0 

X 0 0 
\ 

0 0 X 
/ 

0 0 0 

0 0 0 

0X0 

0X0 

0 J 0 

X-X 0 
1 

0 X-X 

o i o 

0 l 0 

0X0 

0X0 

0X0 

Fh • 1 

aS ■ 1 

c7 ■ 1 

dg" ■ 1 

fT- 


DIAGONAL PERPENDICULAR 


Thus, e Is essential If and only If Fh ■ 1 or (a<T • 1 or c7 - 1) 
or (dig ■ I or fT ■ I). Therefore, the condition for a top peel Is 
that 

Fh(F+d) (c+f) ■ I (diagonal connection) 

Equivalently, to perform a top peel set 

e ■ e(b+h+ad+c7) 

It is convenient to Implement the above equation by employing bit 
manipulation routines operating on pairs of 32-blt words, thereby 
performing the top-peel operation tn parallel on 32 pixels. This 
Is done by using the "current" array in place of e, the "previous" 
array for b, the "next" array In place of h. Also, the previous, 
current, and next arrays are right (left) shifted by one bit and 
used for a, d, and g (c, f and I) respectively In the peeling 
formulas. 

The routine PEELER minimizes the movement of data In core by using 
circular buffers for storing the "previous, current, and next" 
arrays. An array J dimensioned 3 Is used to store the Indices 
pointing to these arrays (J(l)- » previous, J(2) » current, 

J (3) — — ♦•next) and after finishing each record, only the array J 
is updated. 

Also, top, left, bottom, and right peels are performed one after the 
other by Just one pass through the data (thus minimizing I/O) by 
storing the Intermediate results In core and operating with a phase 
lag. 
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When the I'th record LX is read from the input data set (see 
PEELR1), BLSFTV end BRSFTV are used to generate arrays LXl and 
LXR with the bits in LX shifted by one bit to the left and right, 
respectively. 

Next, the ( I - 1 ) th record is peeled from the top. The top-peeled 
output of the (l-2)nd record Is peeled from the left. The top- and 
left-peeled output of the (l-3)rd record is peeled from the bottom. 
The top-, left-, and bottom-peeled output of the (1-4) th record is 
right-peeled and written on the output data set. Also, whenever 
any peeling Is done other than from the right, the output is 
shifted to the left and right by one bit and the results are stored 
in the appropriate core locations pointed by J(3)> 

The routine PEELRO with the appropriate ISIDE will perform the 
peeling of one record. The above operations performed for 1*1, 
NREC+A will complete one iteration of peeling, constituting one 
call to PEELER. The number, NP, or words of Input that were 
changed is counted during each call to PEELER. If NP«0 or the 
number of calls to PEELER has been MPASS, the iterations are 
stopped. 

3. CONVERTING TO SLIC 

Each record Is read from the last scratch unit on which the output 
image was created. The routine EXPBDY is used to sense each bit 
In the record. The bit number of each l-blt Is stored In IBOY. 

The total number, N, of i-blts followed by N words of the array 
I BOY are written on unit NTAPO. 

VIII. COMMENTS 
None. 
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. TESTS 

The program was tested on a small portion of a boundary Image and was 
found to work satisfactorily. Figures 2k (a) and (b) show computar line 
printer plots of the Image before and after pealing, respectively. 

LISTINGS 

The listings of PEELS and the associated routines are attached at the' 
end of this section. 
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Figure 24(e)- Boundaries before Thinning 








Diagonal Connections 



Perpendicular Connections 
Figure 24(b) Thinned Boundaries 
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C 

subroutine Been cN?itNT0fNRec#NiL»iT»p*A*8#iTYpeux # iV|iMY) 

c 

C THIS S'BROUTlNf PEELS THE OUTER UYIRI PRO" THE BOUNDARY LINES OP AN 
C iNACe WHILE PRESERVING THE DISTINCTNESS OP RC610M 8CPARATCP IV 
C THE BOUNDARY LINES 
C 

C D|h|n 8 ION LX( 3 *«<CNCl*t)/mi))ilVCCNM.»|)SR*l)'t»OV<Nei) 

DIHfNSION tl(n»lVil)#! 80 YCU 
DATA PDEV# NDCV /|# IP 
C 

N«(NEL» 1 )/ 32 M 
REWIND NOEV 
DO 10 U 1 »NREC 
CAU 8 ARN(NTl#LX,NEL) 

IP(I,EQ, l,OR,t,EQ*NREC) CAU IV 8 CL 1 CL*»NeL# 0 > 

LX(|) • 0 

IX(NfL) ■ 0 

CAU VLTHR(LX # NEL«IT#LY) 

LX(N)«0 

CALL CmPRI8(LV»NEL»LX) 

CALL 8ANN(NDEV#LX»Ka«) 

10 CONTINUE 
C 

DO 20 1 PAS 8 » 1 #NpA 88 
REMIND HOEV 
REMJNO NDEV 

IP (MCDC 1 PA 88 . 2 ),E 0 , 1 ) 

.CALL PEELeRCP0EY # N0EV # NRPC,ITYPt*K # LX#L*(l2AN#l) # LXCa«*N4l),LY#NP) 
IP (wOOC IPA85#2),EG*0) 

•CALL PEELER(NOEY»MOEV f NRfC# !TYPE»N#lX*l»X(l£*R+!)flX(20«N+i )flV#NP) 
MRITE (A* 100) IPARSfNP 
IP(NP, 10,0)60 TO SO 
20 CONTINUE 

IPA8S«MPA88 

C 

iO IMM0D(IPAS8f2),E0,l)JDEV»N0EV 

IP (MOD ( IPAS8, 2) ,EQ,0) JOEVaNDEV 
REWIND JOE v 
DO oo l«l # NREC 
CALL 8ARN(J0EVfLXfN««) 

CALL EXPBDV CLXfN,I,NREC#NELf I8DY.J) 

•RITE (NTO) J, (IBOY(L)f L*1 # J) 
aO CONTINUE 

RETURN 
C 

100 f CRPAY{*»X»0UH!N6 PASS NUNBER 1 IS, • THROUGH PeELERMO#* WOROS OP CON 
•PRESSED BOUNOARY INPORHATION HERE 0*0*080, ») 

END 
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SUBROUTINE 0ARN(I0EV#IRE C»X»N) 

THIS SUBROUTINE READS N BYTES PROP Of«fCT ACCESS DEVICE XDfV 
STARTING AT RECORD IX INTO ARRAY X 

LOGICAL*! .1 (N) 

REAO(lDEV'IREC)X 
RETURN 
C 

ENTRY OAi»N(lDEVi IRECf X#N) 

C 

C THIS ENTRY WRITES N BYTES op ARRAY X ONTO RECORD IX OF DIRECT ACCESS 
C DEVICE ICEV 

WRITE ( lOfcV * IR£C)X 
RETURN 
C 

ENTRY SARN(NTAPI,X # N) 

C 

C THIS ENTRY READS N BYTES PRCN SEQUENTIAL ACCESS UNIT NTAPI INTO 
C ARRAY X 

readcntapijx 

RETURN 

C 

ENTRY SAWN (NTAPC # X # N ) 

C 

C THIS ENTRY WRITES N BYTES OP ARRAY X ONTO SEQUENTIAL ACCESS 
C UNIT NTAPI 

WRITE (NTAPO)X 

RETURN 

END 
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SUBROUTINE VITHR(LX|N,IT|LV) 

C 

LOGICAL*! LXC»)*IV(N),F/,FAL8E,/«T/'THUC,/ 

THRESHOLD A VECTOR LX OF B BIT INTEGERS TO GET A T*F VECTOR, 

IF • IT 1 IS POSITIVE, LV Cl) IS TRUE FO* LX(I) ,GE» IT, 

IF MT< IS NEGATIVE, LV(l) IB TRUE FOR LX(1> ,IE, I AB8C IT ) « 

ITTsIABS(IT) 

IFCIT.LT.OJGO TC to 
DO 20 I>1 , N 
LVCXW 

IF(LX(X),GEtITT)LY(X)*T 
20 CONTINUE 

RETURN REPRODUCIBILITY OF THE 

C ORIGINAL PAGE IS POOR 

10 00 30 1*1 , N 

LY(I)*F 

IP(Lxm,LE,ITT)LV(I)*T 
30 CONTINUE 

RETURN 
END 



noon 


SUBROUTINE CMRRES(LX#NEL#IY) 

THIS SUBROUTINE IS USED TO RACK THE INFORMATION IN LX INTO THE FIRST 
NEL BITS OF THE ARRAY LY 

LOGICAL*! LX(NEL) 

DIMENSION LVU) 

C 

JftROal 

JBITaJJ 

DO 10 I>1 >Nft 

JBtTaJBlTM 

IFCJBIT.NE.OJGO TO 20 

JBIT>32 

jNRDajMRO*! 

20 IXatX(I) 

LY(J*RD)*IST0RE(IX,LY(J*RD),JBIT#1 J 
10 CONTINUE 

RETURN 
END 
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SUBROUTINE PEC IE R (M0EV,N0IV,NREC # lTYPf »N,LX # LXR,IXL#LV#NPJ 


this subroutine initiates the removal op one layer OP thick bounoarie 

FROM TOP# LEFT# BOTTOM AND RIOHT OP AN IMAGE 


C 


C 


*0 


30 

10 


DIMENSION LX(N,l#A)#LXR(N,3 # «) f LXL(N,),«),LVCk) # JO) 


NREC1»NREC*1 

NRE C2«NRECA2 

NRECSbNRECaS 

NRECttaNRECfA 

Jtl)»l 

J( 2)»2 

J(3)>3 

CALL SVSCKLX «!2*N#0) 
CALL SVSCI (LXR# 12*N#0) 
CALL SVSC!(LXL#!2*k»0) 
NP»0 


. W f 


DO 10 I«1#NREC« 

00 20 K«l#4 

IF (I*LE»NREC+K)GO TO 20 
CALL SVSCKLX (1#J(1)#K)#N,0) 

CALL SVSCI(LXR(l,J(3),K) # N f 0) 

CALL SV$CI(LXL(1»«I(3)#K)«N#0) 

CONTINUE 

IF U ( LE t NREC) CALL PEELR1 (MDEV#LX#LXR#LXL# J,N) 
IF(I ( GT,1,AN0,I,LE.NRCC1) 

CALL PEELRO(LX(l,l,n#LXR(t,l#l)#LXL(l»l#n#J»N#W 
L*(l, J( J)#2)»L* R (1 # J( J)#2)#LXL(1 # Jt3)#2)#NP»ITVPE) 
IFU,GT # 2,AN0,I,LE,NR6C2) 

CALL PEELR0(LX(!,l*2)#LXR<l#!»2)#LXL(l«l»2)#J#N,2# 
LX(1, J(3),3),LXR<1, J(l)r5)»LXL(l#J(J)#A)#NP#ITYPE) 
IFU,GT,3,AKD,I,LE,NREC3) 

CALL PEEL*0(LX(l»l,3),LXR(l f !,3)#LXL(l#l#3),J,N,3 # 
LX(l,J(3),«),LXRa,J{3) # 4),LXL(l#J(3),A),NP,lTVPE) 
IF(1,GT # 4) 

CALL PEELR0CLX(l#l»4)#LXR(l#l#«)#L*Ltl#l#4)#J#N#4# 

ly,o,o,np,itypej 

IF ( I ,GT , 4 ) CALL SANN(N0EV#LV#4*N) 

00 30 K« 1 » 3 

J(k)shoD(J(K)»3)a1 

CONTINUE 

CONTINUE 

RETURN 

ENO 
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subroutine EXPBCv(LX,N,iRfc#M»fc#NtU#iBuv,jj 

THIS SUBROUTINE SENSES EACH BIT in a RLCORO AND CONVERTS the ReCORO 
TO SCAN LINE INTERSECTION COOE ECRMAT 

DIMENSION LX(N),IBDV(I) 

LOGICAL ILOAO 

IFdREC.EQ.l.OR.IREC.EO.NREC) GO TO 10 
GO TO 30 
10 J«NEL 

00 20 I«1#NEL 
I8DV (I )•! 

20 CONTINUE 
GO TO 60 
30 J*RD»1 
JBIUJS 
J*0 

00 50 I«1»NEL 
JBIT«JBIT*1 

IE(I,EG,t,OR.I,EO,NFL) GO TO 70 
If (JBIT.NE.O) GO TO 40 
J81T»32 
JNROsJnROaI 

40 IF(,NOT ( ILOAO(LX(jNRO)»JBIT«m GO TO 50 
70 

IBOV ( J )•! 

50 CONTINUE 
60 RETURN 
END 
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noon 


SUBROUTINE SVSCI(I*#N#18) 

THIS SUBROUTINE SETS ALL ELEMENTS OP AN INTEGER** VECTOR TO A GIVEN 
NUMBER 

DIMENSION IXCN) 

DO 10 I»t#N 

ixcn«is 

10 CONTINUE 
RETURN 
C 

ENTRY 8VSC!2C!2«N,!8) 

C 

C THIS ENTRY SETS ALL FLEMENTS OF AN lNTEfiER*2 VECTOR TO A GIVEN NUMBER 
INTEGER*? I2(N) 

00 20 I«1#N 
20 12(1 )*IS 

RETURN 
C 

ENTRY SVSCL1(U*N # L) 

C 

C THIS ENTRY SETS ALL ELEMENTS OF A LOGICAL*! VECTOR TO A GIVEN NUMBER 
LOGICALM I3(N) 

00 30 I * 1 # N 

I3(n«L 

30 CONTINUE 

RETURN 
END 
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SUBROUTING PEELR1 (BOEV, LX, LXR, L*l» J# N) 

C 

C THIS SUBROUTING REA08 ONE RECORD OR THE INPUT IMAGE AND SETS UP T*0 
c ARRAYS, ONE *ITM THE BITS OP THE RECORD SHIFTED ONE BIT TO THE WEFT# 
C ANO THE OTHER HITH THE BITS SHIFTED ONE PjT TO THf RIGHT 

C 

OlMENStON LX(N,3), LXR(N,3), IXL(N,J)» JO) 

C 

CALL SARN (HDEV, LX(1,J(3)), RAN) 

C 

CALL BL8FTV (LX(i,J(3)), N, WXL(t,J(3))) 

CALL BRSPTV (LX(I,J(3)), N, LXR(I,J(3))) 

RETURN 

ENO 
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c 

c 

c 


c 

c 

1 

c 

c 


SUBROUTINE Ptll.R0 (LX#L*R#UJIt# 4#N, I8IDE»LV,LVR # LYL#NP# ITVPt) 
THIS SUBROUTINE PERFORMS THE PEELING OP ONE RECORO 

OIMEMSION LX(n,3),LXR(N,3),LXL(N,3),LV(N),LTR(N)*LYL(N),4(3) 


DO 60 I»1,N 
LY(I)*LX(1,4(2)) 

IFClVCn.EQ.OJOO TO 60 
60 TO (t« 2) # ITVPE 

*• TYPE 1 ALGORITHM • DIAGONAL CONNECTIONS 
60 TO (10,20,30*40), I8IDE 

TOP PEEL 


^HODUmUTV OF THE 
ORIGINAL PAGIi IS POOR 


10 

INI 

■ 

I OR 

(LX (1,4(1)), 

ICOHPKLX 

(1*4(3)), 32, 32)) 


1*2 

9 

IANO 

(LXR(I,4(1)), 

!C0MPl(LXR(I,4(2)),32,32)) 


1*3 

9 

IANO 

(LXL(i»j(in» 

ICOMPKLXL (I *4(2) ) » 32*32) ) 

r 

GO 

TC 

50 




L 

c 

LEFT PEEL 




20 

1*1 

9 

IOR 

(LXR(!,J(2)), 

ICOMPKLXLCI# 4(2)), 32, 32)) 


1*2 

9 

IANO 

(LXR(I,4(1)), 

ICOHPKLX 

(1*4(1)), 32*32)) 


1*3 

9 

IANO 

(LXR ( I , J (3) ) , 

IC0MP1CLX 

(1*4(3)), 32*32)) 

r 

GO 

TO 

50 




t 

c 

BOTTOM 

PEEL 




30 

1*1 

9 

IOR 

(lx <i,j(3n, 

ICOHPKLX 

(I, 4(1)), 32, 32)) 


1*2 

9 

IANO 

(LXR(I,J(3)), 

IC0MP1 (LXR (I, 4 (2)), 32,32)) 


1*3 

9 

IANO 

(LXL ( I « 4( 3) ) , 

ICOMPKLXL (1*4(2)) ,32,32)) 

c 

GO 

TO 

50 




c 

RIGHT 

PEEL 




uo 

1*1 

9 

IOR 

(LXL(I,J(2)), 

I COMF1 (LxR ( I , J (2) ) , 32,32 ) ) 


1*2 

9 

I AND 

(LXL(I,J(1J), 

ICOHPKLX 

(1*4(1))* 32*32) ) 


1*3 

9 

IANO 

(LXL(I,J(3)), 

ICOHPKLX 

(1*4(3)), 32*32)) 


GO 

TO 

50 





c 

C ** TYPE 2 ALGORITHM • PERPENDICULAR CONNECTIONS 
2 GO TO (lt,22*33,44),I3I0E 
C 

C TOP PEEL 

11 1*1 ■ I0R (LX (I,J(1)), ICONPKLX (I, 4(3)), 32*32)) 

1*2 s IANO (LXR(I,J(2)), I COMF1 (LXR( I * J( 3) ) * 32,32) ) 
1*3 > IANO (LXLCIf J(2))f I COMP l (LXL(I*4(3)),32,32)) 
GO TO 50 


C 

C LEFT PEEL 

22 1 m 1 « !0R (LXR(I,J(2))f 

1*2 > I AND (LX ( I , J (3) ) , 
1*3 • I AND (LX (1,4(1)), 
60 TO 50 


I COMF1 (LXL(I*4(2)),32,32)) 
I COMP 1 (LXL ( I *4 1 3) ) , 32, 32) ) 
I COMF1 (LXL (1*4(1))* 32, 32)) 


C 

C BOTTOM PEEL 

33 1*1 « ICR (LX (I,J(3)), ICOHPKLX (I# J( 1 )) ,32,32)) 
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1*2 • f AMD (LXL(IiJ( 2))# IC0MPI(lXLCX»J(l))#«#12)) 
2 to S • XAMO (LXR(!»J(2))» ICOHH (LXRCI# J<1) )»12*S2)> 
60 TO SO 


C 

C RIGHT PfcEl 

<10 X to 1 ■ IOR (LXL(I»JC2))# IC0RR1 tLXR(I#J(2))#J2r32)) 
1*2 • XAMO (LX (1,J(1)), ICOHPi(LXR(X# JU))'32 r 32)) 
XMl ■ XAMO (LX (X#J(3))* I COM2 1 (LXR(X»J(3))» J2r32) ) 

C 

i SO XMl • IOR (1*1# IM2) 

X to 1 • IOR ( X to X # IMS) 

LY (!) • I AND (LY(I) • XMl) 

IF (LX(I,J(2)),KC*LY(X)) NR«NP+i 
60 CONTINUE 

C 

IF ( X 8 1 OF »EQ#<0 RETURN 
CALL Bl8FTV(LY#M#LYL) 

CALL BH8FTV(LY,N,LYR) 

RETURN 

END 
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c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

to 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

20 


SUBROUTINE BLSFTVClXf N# IV) 

THIS SUBROUTINE GENERATES ARRAY IV MTH THE BITS IN IX SHIFTED ONI 
BIT TO THE LEFT 

O1HEN8I0N IX(N)#!V(N) 

NjaR«l 

DO 10 IttfNt 

MOVE ONE BIT FROM BIT POSITION 32 OF IX(Ivl) INTO IV(l) ANO 

RIGHT JUSTIFY 

!V(l)alLOADClXCIM)»32»t) 

HOVE RIGHTHOST It BITS PRQH IX(D INTO IV(I> STARTING AT BIT 
POSITION 12 

!V<!)aIST0RE(!X<!),IV(n,12,3i) 

CONTINUE 

j V c N ) a 0 REPRODUCIBILITY OF THE 

!V(N)a!ST0RE(!X(N),IV(N),32#in ORIGINAL PAGE IS POOR 

RETURN 

t P » ' t ittt 't M H II t t t n ri! II Ml tttTT'T" f • 1 I tfi ' »f| 1 ITU « t M n t t • n • 


ENTRY BRSf TV(tX#N t IV) 

THIS ENTRY GENERATES ARRAY IV NITH THE SITS IN IX 8 HIFTE 0 ONE SIT 
TO THE RIGHT 

HOVE 31 BITS FRCH BIT POSITION 12 OF 1 X 1 !) INTO IVCI) ANO RIGHT 
JUSTIFY 

!V(t)«IL 0 A 0 CIX(t)* 32 , 3 t) 

DO 20 la2,N 

IV(I)aILOAOCIXCI), 32 , 3 n 

HOVE RIGHTHOST BIT f RON JX(!»t) INTO IV(I) STARTING AT BIT 
POSITION 32 

!V(I)aIST 0 RE(Ixa*ntIV(I)# 32 # l) 

CONTINUE 

RETURN 

END 
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-= 
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♦ -- 
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A0DR2 STMT SOURCE STATEMENT 
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IDENTIFICATION OF CONNECTED REGIONS 

t. NAME 

REGION 

II. DESCRIPTION 

This subroutine identifies ell distinct connected regions In on Image 
given the boundary data in SLIC (scan line Intersection code) format 
and produces a map with a number at each point showing the region to 
which it belongs. The region numbers will be In descending order of 
area. 

III. CALLING SEQUENCE 

CALL REGION (IX, IH, ISEQ, IW1 , IW2, ITABL, IS, LW, IOENT, NREC, NEL, 

NR) 

where 

IX, IH, ISEQ, IWI, IW2, ITABL, IS, LW, and IDENT are arrays dimensioned 
as follows: 

IX (MAX (NEL, NR)) 

IH (HR, 20) FULL WORDS 

ISEQ (NR+I ) 

IWI (NEL) 

IW2 (NEL) 

ITABL (MR, 20, 2) HALF WORDS 

IS (MR) 

LW (MR) 

IDENT (MR, MR) BYTES 

and NREC, NEL are the number of records and the number of pixels 
(bytes) per record In the Input Image; 

MR Is the maximum number of region identifiers permissible In a 
segment; and 

NR Is the maximum number of regions expected. 
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IV 


INPUT/OUTPUT 


t. INPUT 

The input to this program is a sequential data set on logical 
unit 8, having NREC records stored as N, (IX(J), >1, N) in 
unformatted FORTRAN mode. 

2. OUTPUT 

The output of this program will be a sequential data set on 
logical unit 12, having NREC records with NEL pixels each 
with one half-word (2 bytes) per pixel. 

3. FILE STORAGE 

This program requires a sequential access data set with NREC 
records and NEL half-words per record. 

V. DESCRIPTION OF SUBROUTiNES 

The subroutines called by REGION are given. 


EXTERNAL LINKAGES 


CALLING PROGRAM 

PROGRAMS CALLED 

REGION 

RIDER 1 


SORTLS 

RIDER] 

RIDER2 


RIDER3 


RIDER* 

RIDER* 

RIDERS 


RIDER6 


RIDER7 
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A brief description of the function of eech subroutine end Its 
storage requirements ere given below. 


DESCRIPTION OF SUBROUTINES 


SUBROUTINE 
OR ENTRY 

STORAGE 

(BYTES) 

- 

FUNCTION 

REGION 

2112 

Driver program for identifying regions; 
rearranges region numbers in population 
order and writes output. 

RIDER1 

2012 

Initialize arrays, read input, compute 
histogram. 

RIDER2 

878 

Find current array containing region 
identification numbers. 

RIDER3 

562 

Changes region numbers such that 
consecutive region numbers are used. 

RIDER4 

1500 

Handles processlrq to preserve 
Information when a new segment Is begun. 

RIDERS 

818 

Generate a lookup table based on the 
IDENT matrix. 

RIDERS 

472 

Find the set of distinct region 
numbers in the last record of a segment. 

RIDER7 

564 

I 

Modify lookup tables for earlier 
segments based on new connectivities. 

S0RTSL 

(SORTLS) 

1684 

Sort one array in decreasing order 
and arrange a second array accordingly. 


VI. PERFORMANCE SPECIFICATION 
1 . STORAGE 

For e given number of regions, the storage required Is dependent on 
the data record length and the number of regions allocated to a 
segment. For 300 regions and a record length of 1000, the program 
requires 1 90 K when all the regions are placed in one segment. If 
only 50 regions are allocated to a segment, the core required Is 
reduced to 64 K. 
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2. EXECUTION TIME 

The data set used was a digitized LACIE ground truth map of 820 
tines by 1000 samples, consisting of 260 regions. For one segment, 
the time required was 50 seconds, and for 50 regions per segment, the 
time Increased to 53 seconds. 

3. RESTRICTIONS 

In order to ensure that all regions are closed, the edge pixels on 
each side of the input Image should be boundary pixels. 

METHOD 

A simplified flow diagram for subroutine RIDER2 which identifies new 
regions of an Image Is shown in Figure 25 . 

The total program has four major sections: 

(I) Finding a preliminary set of region identifiers; 

(II) Finding the areas of each of the regions; 

(ili) Generating a mapping such that the region numbers are 

used in the order of decreasing areas; 

(iv) Modifying the region number by table lookup. 

1. FINDING PRELIMINARY REGION IDENTIFIERS 

This is the most important step in the program. The subroutine 
RIDER2 Is used for this purpose. The present version can handle 
up to MR*M$EG distinct regions white still using a "region identity 
matrix" of size MR by MR. (MSEG is currently set to 20.) 

This routine uses the arrays IWI and IW2 as the previous and current 
records of region Identifiers. By convention, region number 0 indicates 
the boundary points. The MR by MR array I DENT is used to store 
information about the Identity of regions, IDENT(l,J) ■ .TRUE, meaning 
that region numbers I and J refer to the same connected region. 

Ini tally, the array IWI Is set to all I's and I DENT is set to all 
.FALSE.. Each of the input records is read and the following opera- 
tions are performed. 
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START 


NRP - NR. 

FOR I - 1,N 
IY( IBDY(I)) - 0 
(SET BOUNDARY POINTS 
TO 0) 


M+l 


FIND LL SUCH THAT 
Ll-IBDY(l)+l<LJ<IBDY(l+l)-1-L2 
AND IX(LL)j*CT(N?St BOUNDARY) 


FOR IEL-I, NEC: 

I F ( I X ( I EL)f^O& I Y ( I EL) **0) 
THEN 

IDENT(IX(IEL),IY(IEL)«TRUE 


LL 

FOUND 


S. v FOR L«L1 ,L2 

X Yes w IY(L) - I X (LL) 
(Not (SET TO LAST 
^ Boundary) REGION) 

No (All Boundary) 


NR-NR+I 
(NEW REGION) 


FOR L-Ll ,L2 
IY(L)-NR 


NR— NRP 


Figure 2$. Simplified Flow Diagram for Subroutine RIDER2 













The boundary coordinates in the input record are arranged in 
ascending order. The routine RIDER2 Is used to generate, in IW2, the 
region Identification numbers corresponding to the present row. 

First, ail the elements of IV2 corresponding to the boundary coordi- 
nates are set to zero. Each interval between the zeros is compared 
with the corresponding segment of IW1. If all of the elements In that 
section of IWI are boundery points, a new region number is started 
and assigned to the interval in IW2. if there is a break in the 
boundary connection to a region, that number Is propagated to ail 
elements In the interval. Finally, IDENT(IW1 ( I ) , IW2 ( I )) is set 
to .TRUE, for 1*1, NEL wherever IWI(l)f*0 and IW2(l)dO, indicating 
that IWI (l) and IW2(I) refer to the same region. Also, when new 
region Identifiers are to be used, the routine RIDER2 verifies 
whether the number of identifiers exceeds MR* If so, the value of 
NR, the total number identifiers, is set to -NRP, the total number up 
to the previous record and the control goes beck to the routine RIDERI. 

Now If RI0ER2 returns a positive NR, the array IW2 is written as the 
I * th record on the sequential access data set (unit number NDEVM) 
and IW2 Is moved into IWI (so that it becomes the "previous" 
record while handling the next record). 

If RIDER2 returns a negative NR, then NR is changed to -NR and the 
routine RIDERk Is called. The set of records handled between any 
two calls of RIDERk will be referred to as a segment. Associated 
with each segment, a table is defined which gives a mapping from the 
set of region Identifiers obtained in that segment to a new set 
reflecting the connectivities discovered up to the most recent 
segment handled. Also, the initial record number for each of the 
segments Is stored in an array. The functions of the routine RIDERk 
are to: 

(I) Reduce the matrix IDENT (using RIDER5) examining all of the 
available connectivity Information In it and obtain a lookup 
table for the current segment; 

(II) Modify the tables for the previous segments to reflect the 
newly found connectivities, if any; 
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(ttt) Find all the distinct region numbers occurring In the lest 
record IW1 of the current segment end change the numbers 
there which ere greater than 0 to consecutive numbers 
starting with 1 (let NR be the largest number in IWI); 

(Iv) Set up an array IS consisting of the distinct region numbers 
In IWI and then change l$(l) to ITABL(IS(I), ISE6) where 
ITABL is the lookup table for the current segment; 

(v) Set all elements of IDENT to .FALSE, except when l$(t) - IS (J) 
for I, J In the range 1 through NR. 

After each call to RIDER4, the segment count ISE6 Is Incremented, and 
the Initial record number for the next segment (which Is really the 
number at which RI0ER4 had to be called) Is stored In IRES(ISEG). 

If MSEG Is exceeded by ISEG, or If NR>MR (which means there are 
more than MR distinct regions In the last record) the routine 
RI0ER1 prints an error message, sets NR ■ 0 and exits. Otherwise, 
RIDER2 is called again, IW2 Is found and written on NDEVM, and the 
program proceeds normally to the next Input record. 

After the NREC Input records have been processed, the routine RIBERA 
Is called to get the lookup table for the final segment. A call 
to RIDER3 changes the lookup tables for all the segments such that 
consecutive region numbers are used. 

2. FINDING AREAS 

A histogram of the region identification maps is found, giving the 
total number of occurrences of each of the region identifiers 0 
through NR. These numbers indicate the areas of the regions. 

3. FINDING THE FINAL LOOKUP TABLE 

A sequence of natural numbers is used as a secondary array with the 
histogram as the primary array In a descending sort operation 
(routine SORTLS). The resulting secondary array then gives the 
sequence of original region Identifiers corresponding to decreasing 
areas. An inverse mapping (Inverse mapping of ( I X (j) J « 1, N) 

Is defined as (IY(J) J»1,N) If IY (IX(J))»J) of this sequence gives 
the final lookup table. The actual coding follows these principles 
but Is slightly different in detail to preserve the Identity of 
region 0 which has special significance (boundary lines). 
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k. DERIVING THE FINAL REGION IDENTIFICATION 

The lookup tables generated above ere used to modify the region 
identifiers on NDEVM, record by record, and write out the final 
sequential data set on unit 12. 

VIII. COHHENTS 

Another tpproach could be used instead of the one described above. 

With that method, the processing would be identical, except that the 
matrix (DENT is not defined. Instead, a table is updated every time a 
new connectivity is discovered. While this saves storage, it appears to 
take more execution time than the present method. 

IX. TESTS 

This program has been tested on the LAC IE GTM and found to work 
satisfactorily. A segment of the output is shown in the following 
figure. 

X. LISTINGS 

The listing of the main program and the associated routines are 
attached at the end of this section. 
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SO 


SUBROUTINE REGION (IX, IH, I SCO, IMl, I M2, ITABl, IS, LW, IDEM, 

• NREC, NEL, NR) 

THIS SUBROUTINE IDENTIFIES ALL DISTINCT REGIONS IK AN IMAGE AND 
PRODUCES A NAP t»ITM A NUMBER AT EACH POINT SHOWING THE REGION TO 
WHICH IT BELONGS 


O'N IX(MAX(N,nR)),ISEQ(NR) where NR«mAX,NO,0F REGIONS EXPECTEO AND 
NW MAX NO, OF BOUNDARY POINTS EXPECTED IN ANY RECORD 
O'N ITA8L<mR,M$EG)*I 3(MCR> WHERE NSEG IS THE NAXINUN 
NUMBER OF SEGMENTS EXPECTED FOR HANDLING THE GIVEN BOUNDARY IMAGE 
MCRwMAX NUMBER OF REGION NUMBERS EXPECTED TO OCCUR IN ANY RECORD* 
DIMENSION IX(1), lH(MR,n* ISEQ(l), I*E8(20) 

INTEGERS iwt(NEL), 1W2CNEL), ITABL(HR,1), IS(MR), LW(MR) 

L061CAL«1 IDENT(MR,MR) 

OATA NDEVI, NOEVM, NOEVQ /S* 10* 12/ 


CALL REGION IDENTIFICATION ROUTINE 
WRITE (6* 100) NREC, NEL 

CALL RI0ER1 (IX, IH, IRES, IW1, Xw2, ITABL, IS, Lw, IDENT, NREC, 
NEL, MR, NR, ISEG, NDEVI, NOEVM) 


COMPUTE FINAL HISTOGRAM FOR ALL SEGMENTS USING 'ITABL* 
NR1 a NR ♦ 1 


DO 5 1*2, NR1 

IX(I) a 0 

NTOT a 0 

DO 10 Ial,MR 

00 10 Jal « ISEG 

NREG a ITABKI, J) ♦ 1 

IF (NREG*GT.l) IX(NREG) > 

NTOT a NTOT ♦ IH(I,J) 

CONTINUE 

IX(1) a NREC*NEL • NTOT 


n-rj-KUU UCIBILITY OF TUjp 
ORIGINAL PAGE IS 


IX (NREG) ♦ IH(I, J) 


P. INT HISTOGRAM OF REGION IDENTIFICATION MAP 
*RITE(6»200) 

00 40 U1,NR1 
J«IM 

WRITE (0,350) J, I* (I) 

CONTINUE 


REARRANGE REGION NUMBERS IN DESCENDING ORDER CF POPULATIONS* 

LEAVE 0 UNCHANGED SINCE IT CORRESPONDS TO BOUNDARY POINTS 

DO 20 1*1 ,NR1 

!SEQ(l)aI*l 

CONTINUE 

CALL 80RTLS (IX(2), ISEGC2), 1, NR) 

WRITE (6,400) 

00 SC la) ,NRJ 
Jal. l 

WRITE (6,350) J, !X(I), ISEG ( I ) 

CONTINUE 
DO 60 I«1 ,NR1 
NSORT • ISEG(I) 
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IX(NSORTM) 8 I»l 
60 CONTINUE 
C 

C MODIFY REGION NUMBERS ACCOROING TO TABUS * ITABL • AND 'IX* 

REWIND NOE VM 
JSEG -b 0 

00 70 IRECalf NREC 
REAO (NDEVM) In} 

IP (XfiEC,EQ,IRES(J8EG6l)> JSEG B JSEG ♦ t 
00 60 IEt8l # NEl 
iBintcm) 
ip ci.eo.o) j b o 

IF (I*NE,0) J B ITA6L (l» JSEG) 

INl(XEL) b IX(JAI) 

60 CONTINUE 

WRITE (NOEVO) INI 
70 CONTINUE 

RETURN 
C 

TOO FORMATC//* IMAGE SIZE* ( *15# ' * * 15* * ) 1 ) 

200 PORNAT(//|OX*REGION NO, ' I OX 'NO, OF PIXELS') 

350 FORMAT ( 11X16* 16X19,17X16) 

600 FORMAT ( ' ! ' OX# 'REGIONS AFTER REA8SXC*MENTSI *//JOX# 'REGION NO*'# 
,10X,»NO, OF PIXELS' » 10X* 'OLO REGION NO,') 

ENO 



I 


300 


nnnnnnooo 


m ' 


SUBROUTINE RI 0 IR 1 (IBDV, IH, IRIS, Xwl, IW 2 , 1 TABL, IS, L*# 10 ENT, ! 

NREC, NEL, HR, NR, ISK 6 , NOEVI, NOEVH) 

TO IDENTIFY ALL DISTINCT CONNECTED REGIONS IN A PICTURE SEPARATED 
ev BOUNDARY LINES, THf BOUNDARY DATA ARE GIVEN AS NREC RECORDS ON A 
SEQUENTIAL FILE NOEVI, EACH RECORD BEING WRITTEN AS 
N,U 80 Y(I),I* 1 ,N) 

THE OUTPUT OF THE PROGRAH IS AN NRECwNEU SEQUENTIAL ACCESS FILE ON 
NDEVO CONSISTING OF 0 * 8 FOR BOUNOARV POINTS ANO OISTINCT REGION 
NUMBERS FOR EACH OF THE CONNECTED REGIONS, 


C 

C 


C 

C 

C 

C 

C 

C 


C 

C 


DIMENSION IBOYU), IH(MR, 1 ), IRES( 20 ) 

INTEGER*? INl(NEL), Iw 2 (NEL) * ITABL(MR,l), XS(HR), LW (MR) 
LOGICAL*! IO£NT(MR,MR) 

OATA MSEC /SO/ 


INITIALIZE a »ork array m with ps and ident with , false 


uO 2 1 * 1 , NEL 
2 laid) • 1 
DO A 1 * 1 , MR 
DO 4 J *1 , MR 

4 IDENT ( 1 , J) a , FALSE, 
DO 6 1 * 1 , MR 
DO 6 J*t ,MSEG 
6 IH(I,J) s 0 
REMIND NDEVM 
ISEGal 
XRE 8 (l)al 


SSRKi»» 




NRaO 


LOOP ON RECORDS 
DO 10 IREC« 1 »NREC 


READ ONE RECORD OF BOUNOARV INFORMATION 
READ (NOEVI )N, (IBOV( I ), 1 * 1 ,N) 

DESIGNAtE ALL BOUNOARV POINTS A 8 •REGION 0 * 

DO 8 1 * 1 , N 
J*IBOY(I) 

S I* 2 (J) * 0 

USE 1*1 AND IROV TO SET ARRAY IW 2 AND MATRIX IDENT 
N 1 *N «1 
30 CONTINUE 

CALL RI 0 ER 2 (IBOY, 1 * 1 , 1 * 2 , IDENT, ISEG, Nl, NEL, hr, NR) 

IF (NR,GT,* 1 ) GO TO 20 

mRITE ( 6 , 200 ) IREC,NR 

IF ( 1 REC,EQ, IRES ( ISEG ) )G 0 TO 40 

nr*«nr 


i 

i 


! 

J 

• 

i 

i 

i 


i 

\ 


CALL RIDER 4 (I 0 ENT,Ln,MR,NR, ITABL# ISEG* 1 * 1 ,NIL, IS, (FALSE,) 
ISEGaISEG +1 

IF ( ISEG, GT, MSEC) GO TO 40 
IRE 8 (!SEG)*IREC 
IF(NR,LE,MR)GO TO 30 
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20 write (nocvw) m 

00 21 IM'NCl 

21 1*1(1) * I m 2 Cl) 

00 25 1«1«N1 

ti • woven ♦ i 
is « leovmn • l 
IF (Ll.GT.L2) GO TO 25 
KR a X««2CU1 ) 

IH(KR# 18CG) a XH(KR,ISEG) ♦ 12 • LI ♦ 1 
25 CONTINUE 

10 continue 

C 

C OBTAIN LOOKUP TABLE FOR THE FINAL SEGMENT 

CALL R10ER4(I0ENT,LN,HR»NR,ITABL, X8iG» I*1,NEL,IS, .TRUE,) 

CALL RIDERS CITABL# HR*I9EG) 

C 

C FINO highest REGION nuhber 
NR aO 

DO 15 l«l#HR 
00 55 Jal.IGIG 

35 IF (ITABL(I#J),GT.NR) NR a ITABLdt J) 

RETURN 

C 

40 WRITE (6,100) 1REC 
NRaO 
RETURN 
C 

100 FORHAT(< ERROR CONDITION IN RIDER, SUPPLIED PR OR M$EG WAS EXCEED 
,ED AT RECORD NUPBfcR»I6,«, RETURNING *ITH NRaO») 

200 FORPATC (IREC, NR) a >216) 

END 




i 

i 


r 
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SUBROUTINE RIDER* (IBDV, IX# |V, IDlNT# ISEG, Nt# NIL# HR# NR) 

GIVEN CURRENT SET OF BOUNDARY ADDRESSES (|6DVCl)#!«t#N) AND THE 
LAST ARRAY IX# FIKO CURRENT ARRAY IV CONTAINING REGION lOfNTXFlCA* 
TION NUMBERS. ALSO# IF THE NONBOUNDARV ELEMENTS IN CURRENT RON 
A.H CONTIGUOUS NITH ANY NONBOUNDARV POMS OF THE LAST RON# SET 
THE CORRESPONDING ELEMENTS IN I0ENT MATRIX. 

DIMENSION IBOYCI) 

INTEGER** IX(NEL)#IY(NEI) 

LOGICAL*! JOINT (MR, MR) 

FOR 1*1, N»t EXAMINE IX(J) FOR IBDY(I).LT.J.LT.IBDV(I*1) 

AND SET IY ACCORDINGLY, A N£N REGION NUMBER IS STARTCO NH|N IX(J) 

IS 0 FOR ALL J IN THE ABOVE RANGE. 

NRPaNR REPRODUCIBILITY OP THE 

DO AO !•! #N1 ORIGINAL PAGE IS POOR 

L1*IB0V(I)+1 I 

L2*IB0V(I*1)«| j 

IF(Lt*GT.L2)G0 TO 40 

LOOP OVER PIXELS BETWEEN BOUNDARY POINTS AT LI ANO L2 

DO SO L«L1#L2 

IF ( I X C L ) .EQ,0)G0 TO SO 

GO TO 60 IF IX CL ) IS NOT A BOUNDARY I 

GO TO 60 ! 

SO CONTINUE 

START NFN REGION IF PREVIOUS LINE (IX) 13 ALL BOINOARV POINTS 
NRSNR+ I 

IF (NR,GT.MR) GO TO 90 
DO SS K*L1 #L2 
SS IV (K) ■ NR 

2DENT(NR,NR)« t TRUE. 

GO TO 40 

IF IX(l) IS NOT A BOUnOARY, SET IY FROM LI TO L2 TO !X(L> 

60 CONTINUE 

DO 61 *>L1 «L2 

61 IV(K) « IX CL) 

40 CONTINUE | 

SET IOENT MATRIX TC INDICATE REGION NUMBERS CORRESPONDING TO 
IDENTICAL REGIONS, j 

20 CONTINUE 

DO SO I6L*1#NCL 
I«IX(IEL) 

IF ( I ,EQ,0)G0 TO 80 
J*IY ( IEL ) 

IF (<J,EQ,0)G0 TO 80 
IOENT(I#J)*,TRUE, 

60 CONTINUE 
RETURN 
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«0 CONTINUE 
Nfta«NPR 
RETURN 
END 


8UBRCUTtN6 RIDERS (ITABL* NR8EG) 

C 

C CHANGE REGION NUMBERS SUCH THAT CONSECUTIVE NUHBER8 ARE USED. 
C 

INTEGERS ITA8UNR8EG.2) 

C 

C FIND THI SET OR NUMBERS JH ITA6LC*»I)« 

DO 5 1*1 #NR8fcG 

5 CONTINUE*^ * REPRODUCIBILITY OF THE 

00 10 X«1»NR8CG ORIGINAL PAGE IS POOR 

JslTABlCIil) 

IF (J t NE'0) ITABLCJ* 2) « t 
10 CONTINUE 

C 

C CHANGE ITABL (*#2) TO GET A LOOKUP TABLE FOR ITABL(**1)« 

J«0 

00 20 IMfNRSEG 
IF(ITABL(I»2) t E6 t 0)G0 TO 20 
J«J*1 

ITABL(I»2)aJ 
20 CONTINUE 

C CHANGE ITABL!*#!)* 

00 30 I»1 »NR8EG 
ITABlCt,l)»lTABL(ITABLCI#l)#2) 

30 CONTINUE 

RETURN 
ENO 
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SUBROUTINE R10ER4(IDINT,LW,MR,NR, JTABl, 18EG,IW1 ,NEL,lf ,LAST) 

C 

C THIS ROUTtNf 18 CAlLfO PROM RIOFR1 "HEN ALL RFCORDS ARE PROCESSED 
C (LAST*, TRUE,) OR WH EN THE HUMBER OP REGION NUMBERS POUND WHILE 

C TESTING (IRECd > 'TH RECORD CXC8E08 MR. CLA8T«,FALSE,), THEN, 

C t, THE REGION CONNECTIVITY MATRIX I DENT |8 REOUCEO TO GET A 

C LOOKUP TABLE FOR THE CURRENT SEGMENT • 

C 2, THE LOOKvUP TABLES CORRESPONDING TO EARLIER SEGMENTS ARE 

c modified based on newly pouno CONNECTIVITIES, IF ANY, 

C 3, THE DISTINCT REGION NUMBERS OCCURRING IN THE IREC'TH SEG, 

C ARE FOUNOI A CORRESPONDENCE ARRAY IS BETWEEN CURRENT AND NEXT 
C SEGMENT SET UP, THE LAST RECORD! IN}) 1$ MODIFIED TO MATCH THE 
C NUMBERING OF THE NEXT SEGMENT, 

C 4, THE CONNECTIVITY MATRIX IS MODtMlKD TO PRESERVE THE INFORMA* 

C TION ON THE CONNECTIONS BETWEEN REGIONS IN IREC'TH RECORD, 

C 

INTEGER. 2 ITABL(MR,t),LN(MR), 18(1 ), InI (NED 
LOGICAL. 1 IDINT(MR,mR) 

LOGICAL LAST 
C 

C SECTION 1, 

DO 10 !•! ,NR 
DO 10 J«1,NR 

IDENT (!,«))■ I DENT (I, J) ,OR,IDENT C J # T ) 

10 CONTINUE 

CALL RIDERS (IDENT, MR, NR, ITABLC1 ,ISEG) #1**) 

18EGTs(I8EG*l).MR 
DO 20 I«1 ,NR 

ITABL(I,I8EG) > ITABLd, ISEG) ♦ I8EGT 
20 CONTINUE 

IF (MR.LE.NR) GO TO SO 
NR1 ■ NR ♦ l 
DO SO l»NRt ,MR 
ITABLd, ISEG) • 0 
50 CONTINUE 

C 

C SECTION 2, 

50 CONTINUE 

IF(ISEG t EQ,l)GO TO 60 
ISEGHIStG*} 

CALL RIDERT (ITABLd, ISEG), IS, NCR, ITASL,MR*ISEG1) 

C 

C SECTION 3, 

60 If (LAST) RETURN 

CALL RTDER6dM,NEL,IS,NR) 

NCRBNR 

DO 70 I«l, NR 

!S(I )• IT ABL (18(1 ), ISEG) 

70 CONTINUE 

C 

C SECTION 4, 

C CONNECTIVITIES BETWEEN NEW REGIONS J,J IN THE LAST RECCRO ARf FOUN 

C BY TESTING WHETHER IS(I),EG,I8(J) 

DO 80 I«1,MR 
DO 00 J*1,MR 
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10ENTCX")) • .Mise, 

DO 100 I»t #NR 
IOfcNTCI#!)»,TRUt, 

IF (I.EO.NRJ GO TO tOO 
X t • I ♦ I 

00 90 jBlliMt 


I0ENT(I,J)»I8(I),f0,I5(J) 

CONTINUE 

RETURN 

END 


reproducibility op the 
ORIGINAL PAGE IS POOR 


307 


nnnnn 


SUBROUTINE RIOCRSCll>tNT#HO»N»XT#H) 


TO GENERATE A TABU IT HAPPING TO 1*17(47* IMALLEOT K 

SUCH THAT THERE FKI8T9 A SEQUENCE <K(ID) , ID*1, ,m#L> WITH «(!)•!» 
K(L)*J AKO IDENT(K(XO)»K(IO*!))* a TRUC« 

XNTEGER*2 XT(N>#MCI> 

LOGICAL*! XDENT(MO a N) 

C 

00 100 I*1>N 
XT(X)*I 
too CONTINUE 

1*0 

10 1 * 1*1 

!P(I,Lt,MOO TO 20 
RETURN 

20 !F(!T<n t LT.t)G0 TO 10 

4*0 
K*0 

30 4*4*1 

IF (4 a Lt a N)GO TO 40 
L*0 

SO l«L*l 

1F(L«6T«k)60 TO 10 
4*0 

70 4*4*1 

IF(4.CT,N)60 TO SO 
IF ( ( K0T • IDENT (M (L ) |4) )G0 TO 70 
XF(IT(4).EO t l)GO TO 70 
IT(4)*I 

K*K *1 
M(K)*4 
GO TO 70 

40 IF( ( *CT ( IDENT(I,4))G0 TO 30 

IT C4)*I 
K*K*t 
H(K)*4 
GO TO SO 
END 
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SUBROUTINE MDE86 (IX, Ml, It, N) 

find x art is of distimt nonzero elements in i*« thf nuhber cf 

SUCH ELEMENTS IS N, 

INTE6ERM JX(Ml), 18(1) REPRODUCIBILITY OP THE 

N , 0 r ’ * IS POOR 

00 )0 l»l,NEL 
IF (IX(!).EG a Q) 60 TO 10 
IF(N f EQ a 0)60 TO 20 
C 

C CHECK IIEMNT8 CF IS ALREADY LOADED 
DO SO J*1,N 

IF(I8(J),E0,IX(I))60 TO 40 
SO CONTINUE 

C 

C CURRENT ElE*tNT OF IX 18 DISTINCT 

20 N«N4| 

I8(N1NIX(I) 

IX (I )»N 
60 TO 10 
C 

C CURRENT EUNfNT OF IX EQUALS J»TH DISTINCT ElfRENT 

40 XXII 1 ■ J 

10 continue 

RETURN 

END 
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SUBROUTINE RlDIR7UX,Ii # N,IY,M) 

MOOIFV RELEVANT ENTRIES IN IT ACCORDING to CONNECTIVITIES FOUNO IN IS 

INTEGERS IX(N) v I8(N),IV(M) 

C 

IP (N|EG«0) RETURN 
MAX ■ 18(1) 

M|N a 18(1) 

00 5 I*l#N 

IP (IS(I)%GT*MAX) MAX a IS(|) 

9 IP (lS(t),lT t MlN) MIN a XS(1) 

C 

C CHECK POR REGION NUMBERS OUTSIDE RANGE UP IT (PREVIOUS SEGMENTS) 

00 10 Jal,M 

IP(IV( J)ftT*MIN,OR#IV(J) *GT*NAX)G0 TO 10 

C MOOIPV PREVIOUS TABLE (IV) USING CURRENT TABLE (IX) 

00 20 1*1 #N 

IF (1Y(J)»NE •18(1)1 GO TO 20 
IV(J)«lX(t) 

GO TO 10 
20 CONTINUE 

10 CONTINUE 

RETURN 
END 
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SUBROUTINE 80RT8L (At* A 2, II, JJ) 


SORT ARRAY At ANO ARRAN6C ARRAY A8 C0R«E8R0N0XNCIV 

00 FROM ELEMENT! II TO JJ 


C 

C 


I 

5 

!0 

20 


40 


SO 


0XMEN8X0N Aim, A2C1), IUC1*), XL(t*> 
INTEGER Al, A2, Tl, T2, TTI, TT2 
LOGICAL*! 81 
8L * .TRUE, 

GO TO 1 


ENTRY 80RTL8 (At, A2 # II, JJ) 

81 • ,FAL8t, 

NO • JJ • II ♦ I 
Ns I 
!•!! 

Ja JJ 

lF(I,GE a J) GOTO 70 

NSl 

IJ«(J*X)/2 
Tl a AtCIJ) 

T2 a A2(IJ) 

IF (ASCII* LC • T| 8 GO TO 20 
Al(IJ) a At(I) 

A2CIJ) a A2( II 
Aid) • T! 

A2CI) a T2 
Tl a At(IJ) 

T2 a A2CIJ) 

LaJ 

IF (A1(J),GE,T1) GO TO 40 
AI(IJ) a AKJ) 

A2CIJ) a A2(J) 

A1(J) a Tl 
AKJ) a T2 
Tl a Al(IJ) 

T2 a A2(IJ) 

IF (At d ),LE«T1 ) GO TO «0 
At ( IJ) a Al(I) 

A2CIJ) a A2d) 

Aid) a Tl 
A2(I) a T2 
Tl a AKXJ) 

T 2 a A2( I J) 

GOTO 40 
AKL) ■ A1(N) 

A2(L) • A2(N) 

A1CN) a TTI 
A2CK) a TT2 
L«L»1 

IF (At (L),GT ( T1) GO TO 40 
TTI a AKL) 

TT2 a A2(L) 

NtN«t 


SSSSSVW 
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XF <Al<K)*lT,Tt) CO TO SO 
XF(K t Ufi t U OOTO SO 

ir(L«i,UtJ«io core *o 

IlOOH 
1U(F)»1 
1*9 
Ma**l 
GOTO 00 
*0 ILO*) • k 
1U(*)«J 
J*L 
MaM+1 
GOTO 00 
70 K«**l 

IF (9,96,0) GO TO 7S 
IF (8L) RETURN 
N02 > ND/2 

n • n 

12 • JJ 

DO 110 t«l'MD2 

T 1 • *1(11) 

T2 • *2(11 ) 

11(11) ■ A 1 C 12) 

A2(I1) • *2(12) 

*1(12) a T 1 
*2(12) a T2 
XI a II ♦ 1 
110 12 a XI • 1 
RETURN 
75 X»ll(9) 

JalU(P) 

00 IF(4*! t GE,II) GOTO 10 
IF ( X ,£Q, 1! ) GOTO 5 
1*1»* 

90 X«X<rl 

IF(I,EQ,J) GOTO 70 
Tl a AJ(IM) 

T2 a *2(1*1) 

IF (A1(I),U,T1) GO TO 90 
9*1 

100 *1(9*1) • *1(0) 

*2(9*1) a *2(9) 

KaK«l 

IF (T1.LT.A1 CK)) GO TO 100 

*1(9*1) « Tl 

*2(9*1) a T2 

GOTO 90 

RETURN 

END 
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REMOVAL OF BOUNDARIES 


I. NAME 

DBOUND (Delete Boundaries) 


REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 


II. DESCRIPTION 

This subroutine modifies each of the boundary pixels tn an Image 
to the most frequently occurring number in its 3 by 3 neighborhood. 
This is useful, for example, in suppressing all the boundary points 
in a GTM and replacing them with reasonable class labels. 

III. CALLING SEQUENCE 

CALL DBOUND (NREC , NEL, NEL2, NTAPI , NTAPO , IX, IY) 
where 

NREC is the number of records in the input image; 

NEL is the number of pixels per record; 

NEL2 - NEL+2 ; 

NTAPI, NTAPO are the logical unit numbers of input and output 
sequential data sets; 

IX, IY are work arrays to be dimensioned (NEL2,3) and NEL bytes. 

All the calling arguments except IX and IY are inputs. 

IV. INPUT/OUTPUT 

The input and output data sets are in unformatted FORTRAN. The 
number of records is NREC and the number of pixels per record is 
NEL. Each pixel is represented by a byte. 

V. DESCRIPTION OF SUBROUTINES 

The subprograms required by this routine are: 

SARN, a sequential access array read routine entry under subroutine 
DARN; VM0V2, a routine to move a vector in core requiring 300 bytes 
of storage; and MAJOR, a function (requiring 834 bytes of storage) 
which gives the most frequently occurring number in a 3 by 3 
neighborhood. 
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VI. PERFORMANCE SPECIFICATIONS 

1. STORAGE 

This subroutine Is 1008 bytes long. 

2. EXECUTION TINE 

The time required to process an image whose size is 820 lines 
x 1000 pixels is approximately 38 seconds, and is 378 seconds for 
a large map of 4000 x 2100 pixels, giving a processing speed 
on typical maps in excess of 20,000 pixels per second. 

3. 1/0 LOAD 
None. 

4. RESTRICTIONS 
None. 

VII. METHOD 

This program uses a circular buffer IX with pointers II, 12, 13 
indicating the previous, present and next records under consideration. 
Initially, 11, 12, and 13 are set at 1, 2, and 3, respectively. 

After each record is processed, the pointers 11, 12, and 13 are 
"rolled" upward. The processing of each record consists of check- 
ing the eight neighbors of each pixel whose value is zero. The 
function subprogram MAJOR is employed to determine the number most 
frequently occurring In the set of eight. (If such a number Is 
not unique, the first encountered number is taken.) Neighboring bound- 
ary values are ignored in the count, to prevent MAJOR returning a 
boundary value when these are most frequent in the neighborhood. 

Records 0 and NREC+1 are defined to be identical to records 1 and 
NREC respectively. Also, pixels 0 and NEL+1 in any record are 
[ defined to be the same as pixels 1 and NEL in the same record. 



TESTS 

This program was used to remove the extraneous boundary points from 
the LAC IE class map. Figure 27 shows the selected section of the 
LACiE class map after the boundary points have been removed. 

LISTINGS 

The computer listings for DBOUND and its subroutines are included 
next. 
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SUBROUTINE DB0UND(NREC#NEL#NEL2#NTAP1»NTARQ#IX# IV) 

C 

C THE PURPOSE OP THIS PROGRAM IS TO MODIFY POINTS IN THE IHA6E ON NTAPt 
C WITH NUMBER 0 TO THE NUMBER OCCURRING MOST FREQUENTLY IN A 3 BY S 
C NEIGHBORHOOD 
C 

LOGICAL*! IX(NEL2#3), IT(NEL) 

C 

C INITIALIZE ARRAY IX, 

II •! REPRODUCIBILITY OF THE 

12*2 ORIGINAL PAGE IS POOR j 

13*1 ! 

CALL 8ARN(NTAPI,IX(2#I1)#NEL*2) 

IX(1#!1)*IX(2#I!) 

!X(NtL2#Il)*IX<NEL*l#Il) 

00 5 J*l#ML2 

5 IXCJ.I2) ■ IX(J,I!) 

C 

C IPd.LT.NAEC) READ (I*1)»8T RECORO INTO IX(*#I3). 

C FOR LAST RECORD# MOVE !X(*#I2) INTO IX(*#I3), 

00 10 I*1#NREC 
IP (l.LT.NREC) GO TO 8 
00 6 J*1.NEL2 

6 IX(J#tS) ■ IX ( J# 12) 

GO TO 9 

S CALL SARN (NTAPI# IX (2# 13) #NEL*2) 

IX(1#I3)*IX(2# 13) 

IX (NEL2# I3)*IX (NEL+1 # 13) 

9 CONTINUE 
C 

C NOW, the PREVIOUS# CURRENT AND NEXT ROMS ARE IN IX(*#11)#IX(*#I2) 

C AND IX (*# IS) RESPECTIVELY. MODIFY EACH 0 IN IX(*#t2) TO THE HAJO* 

C RITY CLASS NUMBER IN THE <3 BY 3 NEIGHBORHOOD CP IT. 

00 20 J*1 »NEL 
IY(J)»IX(J*1#I2) 

20 IP C I Y( J) ,EQ,0) IY( J)«MAJOR( IX#NIl2# 1 1#I2»I3#J+1) 

MRITE(NTAPO) IY 
C 

C MODtPY II # 12# 13 IN PREPARATION FOR ThE NEXT RECORO, 

IM«U 
11*12 
12*13 
10 13*lw 
RETURN 
END 


FUNCTION MAJ0R<IX,NEL»li»I2#ll#,lJ 
C 

C FIND TN| HOST FREQUENTLY OCCURRING NUMBER 4M0NQ THE EIGHT 
C NEIGHBORS OF IX(J, 12), NCTE THAT l#LT,J,tT,NEt i 
C 

LOGICAL*! IX(NELiS) 

01NEN810N LABELfS) *NUNBIR(8) 

C 

LABEL (1)* IX («)«!* I!) 

NUHBERCl )■! 

N«l 

J2*J»2 

C 

00 SO 1 * 1*3 

iFu,EQ,nn*n 

IF(I,tQ,2)lt«I2 
IF(I, IQ, 3)11*13 
KM«| 

IF(l a EQ t i)NH*2 

INC*1 

IF(I,EQ,2)|NC*2 

C 

00 10 K»KM # J| INC 
00 20 L«!»N 

IF(IX(J2*K,II),EQ,LABELCL))G0 TO AO 
20 CONTINUE 

N»N* 1 

LABEL (N)«IX(J2*K f II) 

NUMBER(N)»1 
CO TO |0 

AO NUMBER(L)«NUHBER(L)^1 

10 CONTINUE 

30 CONTINUE 

C 

DO 60 1*1 # N 

IF (LABEL (I ) ,IQ,0) NUNBER(I)«G 
60 CONTINUE 

C 

MAX»0 

DO 50 1*1 f N 

IF (NUMBER (I ) ,11, MAX) 00 TO 80 
NAJOR*LABEL(I) 

HAXaNUNBER(I) 

50 CONTINUE 

\ RETURN 

ENO 
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SUBROUTINE OARN(IOEV« IRCC* X#N) 

THIS SUBROUTINE REAOS N BYTES PROP OI«ECT ACCESS OEVICC 201V 
STARTING AT RECORD IX INTO ARRAY X 


LOGICAL*! X(N) 

RSADdOEV' IREOX 
RETURN 

ENTRY OANNdDEVf IRECf X#N) 


reproducibility op the 
ORIGINAL PAGE IS POOR 


THIS ENTRY MR1TES N BYTES OF ARRAY X ONTO RECORD IX OF DIRECT ACCESS 
DEVICE IOEV 

WRITE (IOEV * IREOX 
RETURN 

ENTRY SARN(NTAPI f X f N) 

THIS ENTRY READS N BYTES PRO« SEQUENTIAL ACCESS tMT NTAFI INTO 
ARRAY X 

READCNTAPDX 

RETURN 


ENTRY SAWN(NTAPO'X'N) 

THIS ENTRY WRITES N BYTES OF ARRAY X ONTO SEQUENTIAL ACCESS 
UNIT NTAFI 

NRITE(NTAPO)X 

RETURN 

END 


t 

s 

\ 

i 

i 

i 

t 

i 
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REPLACEMENT OF REGION IDENTIFICATION NUMBERS WITH 
CLASS IDENTIFICATION NUMBERS 


I. NAME 
RINCIN 

II. DESCRIPTION 

The output of the REGION program is a data set where each data value Is 
a region number. For comparison with other maps, It is desirable that 
each data value be a class number. This subroutine replaces each 
region number in the REGION output with the class number corresponding 
to that region. 

III. CALLING SEQUENCE 

Call RINCIN (IW, ICLS, LINE, IPIX, NUM, NREC, NEL, NCLS, NREG, 

NDEVM, NDEVO, IDEV, and IX) 
where 

IW, ICLS, LINE, IPIX, and IX are arrays to be dimensioned as Indicated 
In the listings. 

NUM ■ class number. 

NREC * number of records in the input image. 

NEL ■ number of pixels per record. 

NCLS > number of coordinate-class number values. 

NREG « number of regions in the map. 

NDEVM and NDEVO are logical unit numbers of input and output 
sequential data sets. 

IDEV • logical unit number of a direct access data set. 

IV. INPUT/OUTPUT 

The input and output data sets are in unformatted FORTRAN. There are 
NREC records and NEL pixels per record. Each input pixel is represented 
by one byte. The table of coordinates and class numbers is input from 
cards. 

V. DESCRIPTION OF SUBROUTINES 

No additional subroutines are called. 
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PERFORMANCE SPECIFICATIONS 


V ' 


VI. 


1 . 


STORAGE 

This subroutine Is 1306 bytes long. 


BEWDUCffiMCY OFTBB 
ORIGINAL PAGE IS POOR 


2. EXECUTION TIME 

The time required to process an Image whose size Is 820 lines x 
1000 pixels per line is approximately 22 seconds on the IBM 360/75 
computer. 


3. RESTRICTION 
None. 


VII. METHOD 

A simplified flow diagram for the program to change region numbers to 
class numbers ts shown in Figure 28. First, the region map is p’^ced 
on a direct access device to avoid numerous rewinds when creating a 
class table. The class table is created by placing a class number in 
the table at the element corresponding to the region number. Region 
numbers at the given set of coordinates (at least one set per region) 
are determined by reading the direct access file at the coordinates. 
This process is repeated for ail coordinate pairs. After the class 
table has been set up, each record of the image is read into a 
sequential device. Then each pixel is changed from a region number to 
the class table as specified by the region number. 

VIII. COMMENTS 
None 


IX. TESTS 

This program was used to convert the region numbers of the LAC IE GTM 
to class numbers. 


X. LISTINGS 

The listings of the main program and associated subroutines are attached 
at the end of this section. 
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c 

c 

c 

c 

c 


c 

c 


c 

c 


c 

c 


c 

c 


c 
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SUBROUTINE RlNCIN(IN,tCl8*lINE#IPXX*NUM*NREC»NEl»NCLS#NREG, 

• NDEVM, NDEVO»XDEV, IX) 

THIS SUBROUTINE CONVERTS RESXON IDENTIFICATION NUHSER8 (RIMS) 
TO CLASS IDENTIFICATION NUMBERS (CXN»S) 

DEFINE FILE IOEV (NREC* NIL, l* IV) REQUIRED IN CALLING PROGRAM 

OIHEN8XON LXNE(KCLS)*XPXX(NCL8)*NUM(NCLS) 

1NTEGER*2 IN(NEL)# XCLS(NREG) 

LOGICAL*! IX(NEL) 


PUT IMAGE ON DISK 
00 tO !■! *NREC 
READ(NDEVH) IN 
wRITEdOEVM) IN 
10 CONTINUE 


REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 


1ER0 THE LOOKUP TABLE 
DO IS XtlfNREG 
15 XCLS(I) « 0 

READ COORDINATE VALUES AND CORRESPONDING CLASS NUMBERS 
READ (5*100) (LINE(I)i IPXX(X)* NUMCX1* I«liNCL8) 

NRITE (0*200) (LINE(I), IP1X(X)* NUM(I). I«!,NCL8) 

STORE CLASS NUMBERS IN LOOKUP TABLE 
DO 50 XalfNCLS 
REAOdOEV 'LXNE(I) ) IN 
1REG«XN(1PIX(X)) 

ICLS(IREG)«NUM(X) 

50 CONTINUE 

REPLACE REGION NUMBERS nITH CLASS NUMBERS 
REMIND NDEVM 
DO 60 l«t*NREC 

READ (NDEVM) IM 

DO 50 J«1*NEL 
IF(IN(J)*EQ«0) GO TO «6 
IF(Im(J) < EQ*1) GO TO «5 

IN(J)*1CLS(IN(J)) 

60 TO ao 

05 IN(J)»0 

06 IX(J)*IU(J) 

50 CONTINUE 

HRITE(NOEVO) XX 
60 CONTINUE 
RETURN 


100 FORMAT (5(515) ) 

200 FORMAT (5(1 OX* 515) ) 
END 


j 

{ 
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